Perl 语言概览,高屋建瓴、欲招人之耳目(二)

1.2.4 复杂数据结构

$wife{"Jacob"} = ("Leah", "Rachel", "Bilhah", "Zilpah");   # 错误

$wife{"Jacob"} = ["Leah", "Rachel", "Bilhah", "Zilpah"];   # 正确

用[] 中括弧来将一个列表转换成一个标量。

$wife[0] = ["Leah", "Rachel", "Bilhah", "Zilpah"];  #正确

$wife = ["Leah", "Rachel", "Bilhah", "Zilpah"]; #错误

左边要写成 $wife{"Jacob"} 或 $wife[0] 表明 wife 是一个数组或散列,只有对数组或散列才能这样赋值。

访问方式用 $wife{"Jacob"}[0] 或 $wife[0][0]

我们希望将散列结构也当成一个标量,我们可以使用花括弧来完成,如:

         $kids_of_wife{"Jacob"} = {
              "Leah"   => ["Reuben", "Simeon", "Levi", "Judah", "Issachar", "Zebulun"],
              "Rachel" => ["Joseph", "Benjamin"],
              "Bilhah" => ["Dan", "Naphtali"],
              "Zilpah" => ["Gad", "Asher"],};

访问 $kids_of_wife{"Jacob"}{"Leah"}[0]   = "Reuben";

1.2.5 简单数据结构

Perl 用 package 标名命名空间,如

   package Camel;
   $fido = &fetch();

$fido 的真实名字是 $Camel::fido,&fetch 的真实名字是 &Camel::fetch

当我们使用:

   $fido = new Camel "Amelia";

我们实际上调用了 Camel 包中的 &new,它的全名是 &Camel::new。并且当我们使用:
 
   $fido->saddle();

的时候,我们调用了 &Camel::saddle 过程,因为 $fido 记得它是指向一个 Camel 对象的。这就是一个面向对象程序的工作方法。
 
package Camel 实际上是开始了一个新包。Perl 中用 use 声明借用其他已有包的名词和动词,use 同时也会检查磁盘上载入的模块名称。

实际上,你必须先使用:

   use Camel;

然后才能使用:

   $fido = new Camel "Amelia";

不然的话,Perl 将不知道 Camel 是什么东西。

可能 Perl 最强大的东西并不在 Perl 本身,而在于 CPAN(Comprehensive Perl Archive Network),CPAN 包含无数的用于实现不同任务模块

。你不需要知道如何实现这些任务,只需要下载这些模块,并简单用下面的方法来使用它们:

   use Some::Cool::Module;

然后你就可以使用模块中的动词。

   use strict;

strict 模块干的事是更加严格地约束 Perl 中的一些规则,这样你在很多方面必须更明确,而不是让 Perl 去猜,例如如何确定变量的作用范

围。

1.2.6 动词

在 Perl 中过程和函数并没有硬性的区别。我们经常称动词为操作符(内建)或者是子过程(用户自定义)(注:历史上,Perl 要求你在调用

的任何用户定义子过程的前面加一个与号(&)(参阅早先时候的 $fido = &fetch();)。但是到了 Perl 版本 5,这个与号是可选的了,所以

用户定义动词现在可以和内建动词相同的方法进行调用了($fido = fetch();)。

1.3.1 如何运行

1) %perl -e 'print "Hello, world!\n";'  # Unix 下
   %perl -e "print 'Hello, world!'";    # Win 下

2) %perl gradation           #gradation 文件中写了 perl 脚本

3) %gradation               #gradation 前加了 #! /usr/bin/perl (#!”shebang”标志),并且该文件可执行
     Windows 下的 .pl 脚本如果关联了 perl.exe 解释器,不用加 shebang 标志,要加的话就是 #!C:\Perl\bin\perl.exe,就直接能执行 gradation.pl
     #! /usr/bin/perl   -w  # -w 选项会打开所有有用的和有趣的警告信息

类别: Perl. 标签: . 阅读(45). 订阅评论. TrackBack.

Leave a Reply

Be the First to Comment!

avatar