perl实例分析教程之十六-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

perl实例分析教程之十六

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　Perl中的“引用”

　　五、多维数组

　　语句@array = list;能够创建数组的引用，中括号能够创建匿名数组的引用。下面语句为用于画图的三维数组的例子：

　　$line = [’solid’ , ’black’ , [’1’,’2’,’3’] , [’4’,’5’,’6’]];

　　此语句建立了一个含四个元素的三维数组，变量$line指向该数组。前两个元素是标量，存贮线条的类型和颜色，后两个元素是匿名数组的引用，存贮线条的起点和终点。访问其元素语法如下：

　　$arrayReference->[$index] single-dimensional array

　　$arrayReference->[$index1][$index2] two-dimensional array

　　$arrayReference->[$index1][$index2][$index3] three-dimensional array

　　能够创建在您的智力、设计经验和电脑的内存允许的情况下极尽复杂的结构，但最好对可能读到或管理您的代码的人友好一些--尽量使代码简单些。另一方面，假如您想向别人炫耀您的编程能力，Perl给您足够的机会和能力编写连自己都难免糊涂的代码。:)

　　建议：当您想使用多于三维的数组时，最好考虑使用其他数据结构来简化代码。

　　下面为创建和使用二维数组的例子：

　　1 #!/usr/bin/perl

　　2 #

　　3 # Using Multi-dimensional Array references

　　4 #

　　5 $line = [’solid’, ’black’, [’1’,’2’,’3’] , [’4’, ’5’, ’6’]];

　　6 print "$line->[0] = $line->[0] n";

　　7 print "$line->[1] = $line->[1] n";

　　8 print "$line->[2][0] = $line->[2][0] n";

　　9 print "$line->[2][1] = $line->[2][1] n";

　　10 print "$line->[2][2] = $line->[2][2] n";

　　11 print "$line->[3][0] = $line->[3][0] n";

　　12 print "$line->[3][1] = $line->[3][1] n";

　　13 print "$line->[3][2] = $line->[3][2] n";

　　14 print "n"; # The obligatory output beautifier.

　　结果输出如下：

　　$line->[0] = solid

　　$line->[1] = black

　　$line->[2][0] = 1

　　$line->[2][1] = 2

　　$line->[2][2] = 3

　　$line->[3][0] = 4

　　$line->[3][1] = 5

　　$line->[3][2] = 6

　　那么三维数组又怎样呢？下面是上例略为改变的版本。

　　1 #!/usr/bin/perl

　　2 #

　　3 # Using Multi-dimensional Array references again

　　4 #

　　5 $line = [’solid’, ’black’, [’1’,’2’,’3’, [’4’, ’5’, ’6’]]];

　　6 print "$line->[0] = $line->[0] n";

　　7 print "$line->[1] = $line->[1] n";

　　8 print "$line->[2][0] = $line->[2][0] n";

　　9 print "$line->[2][1] = $line->[2][1] n";

　　10 print "$line->[2][2] = $line->[2][2] n";

　　11 print "$line->[2][3][0] = $line->[2][3][0] n";

　　12 print "$line->[2][3][1] = $line->[2][3][1] n";

　　13 print "$line->[2][3][2] = $line->[2][3][2] n";

　　14 print "n";

　　结果输出如下：

　　$line->[0] = solid

　　$line->[1] = black

　　$line->[2][0] = 1

　　$line->[2][1] = 2

　　$line->[2][2] = 3

　　$line->[2][3][0] = 4

　　$line->[2][3][1] = 5

　　$line->[2][3][2] = 6

　　访问第三层元素的方式形如$line->[2][3][0]，类似于C语言中的Array_pointer[2][3][0]。本例中，下标均为数字，当然亦可用变量代替。用这种方法能够把数组和哈希表结合起来构成复杂的结构，如下：

　　1 #!/usr/bin/perl

　　2 #

　　3 # Using Multi-dimensional Array and Hash references

　　4 #

　　5 %cube = (

　　6 ’0’, [’0’, ’0’, ’0’],

　　7 ’1’, [’0’, ’0’, ’1’],

　　8 ’2’, [’0’, ’1’, ’0’],

　　9 ’3’, [’0’, ’1’, ’1’],

　　10 ’4’, [’1’, ’0’, ’0’],

　　11 ’5’, [’1’, ’0’, ’1’],

　　12 ’6’, [’1’, ’1’, ’0’],

　　13 ’7’, [’1’, ’1’, ’1’]

　　14 );

　　15 $pointer = %cube;

　　16 print "n Da Cube n";

　　17 foreach $i (sort keys %$pointer) {

　　18 $list = $$pointer{$i};

　　19 $x = $list->[0];

　　20 $y = $list->[1];

　　21 $z = $list->[2];

　　22 printf " Point $i = $x,$y,$z n";

　　23 }

　　结果输出如下：

　　Da Cube

　　Point 0 = 0,0,0

　　Point 1 = 0,0,1

　　Point 2 = 0,1,0

　　Point 3 = 0,1,1

　　Point 4 = 1,0,0

　　Point 5 = 1,0,1

　　Point 6 = 1,1,0

　　Point 7 = 1,1,1

　　这是个定义立方体的例子。%cube中保存的是点号和坐标，坐标是个含三个数字的数组。变量$list获取坐标数组的引用：$list = $$ pointer{$i}; 然后访问各坐标值：$x = $list->[0]; ... 也可用如下方法给$x、$y和$z赋值：($x,$y,$z) = @$list;

　　使用哈希表和数组时，用$和用->是类似的，对数组而言下面两个语句等效：

　　$$names[0] = "kamran";

　　$names->[0] = "kamran";

　　对哈希表而言下面两个语句等效：

　　$$lastnames{"kamran"} = "Husain";

　　$lastnames->{"kamran"} = "Husain";

　　Perl中的数组能够在运行中创建和扩展。当数组的引用第一次在等式左边出现时，该数组自动被创建，简单变量和多维数组也是相同。如下句，假如数组contours不存在，则被创建：

　　$contours[$x][$y][$z] = &xlate($mouseX, $mouseY);

　　六、子程式的引用

　　perl中子程式的引用和C中函数的指针类似，构造方法如下：

　　$pointer_to_sub = sub {... declaration of sub ...};

　　通过所构造的引用调用子程式的方法为：

　　&$pointer_to_sub(parameters);

　　子程式模板

　　子程式的返回值不但限于数据，还能够返回子程式的引用。返回的子程式在调用处执行，但却是在最初被创建的调用处被配置，这是由Perl对Closure处理的方式决定的。Closure意即假如您定义了一个函数，他就以最初定义的内容运行。(Closure详见OOP的参考书)下面的例子中，配置了多个错误信息显示子程式，这样的子程式定义方法可用于创建模板。

　　#!/usr/bin/perl

　　sub errorMsg {

　　my $lvl = shift;

　　#

　　# define the subroutine to run when called.

　　#

　　return sub {

　　my $msg = shift; # Define the error type now.

　　print "Err Level $lvl:$msgn"; }; # print later.

　　}

　　$severe = errorMsg("Severe");

　　$fatal = errorMsg("Fatal");

　　$annoy = errorMsg("Annoying");

　　&$severe("Divide by zero");

　　&$fatal("Did you forget to use a semi-colon?");

　　&$annoy("Uninitialized variable in use");

　　结果输出如下：

　　Err Level Severe:Divide by zero

　　Err Level Fatal:Did you forget to use a semi-colon?

　　Err Level Annoying:Uninitialized variable in use

　　上例中，子程式errorMsg使用了局域变量$lvl，用于返回给调用者。当errorMsg被调用时，$lvl的值配置到返回的子程式内容中，虽然是用的my函数。三次调用配置了三个不同的$lvl变量值。当errorMsg返回时，$lvl的值保存到每次被声明时所产生的子程式代码中。最后三句对产生的子程式引用进行调用时$msg的值被替换，但$lvl的值仍是相应子程式代码创建时的值。

　　很混淆是吗？是的，所以这样的代码在Perl程式中很少见。

　　七、数组和子程式

　　数组利于管理相关数据，本节讨论怎样向子程式传递多个数组。前面我们讲过用@_传递子程式的参数，但是@_是个单维数组，不管您传递的参数是多少个数组，都按序存贮在@_中，故用形如my(@a,@b)=@_; 的语句来获取参数值时，全部值都赋给了@a，而@b为空。那么怎么把一个以上的数组传递给子程式呢？方法是用引用。见下例：

　　#!/usr/bin/perl

　　@names = (mickey, goofy, daffy );

　　@phones = (5551234, 5554321, 666 );

　　$i = 0;

　　sub listem {

　　my ($a,$b) = @_;

　　foreach (@$a) {

　　print "a[$i] = " . @$a[$i] . " " . "tb[$i] = " . @$b[$i] ."n";

　　$i++;

　　}

　　}

　　&listem(@names, @phones);

　　结果输出如下：

　　a[0] = mickey b[0] = 5551234

　　a[1] = goofy b[1] = 5554321

　　a[2] = daffy b[2] = 666

　　注意：

　　1、当想传递给子程式的参数是多于一个的数组时一定要使用引用。

　　2、一定不要在子程式中使用形如 (@variable)=@_; 的语句处理参数，除非您想把任何参数集中到一个长的数组中。

　　八、文档句柄的引用

　　有时，必须将同一信息输出到不同的文档，例如，某程式可能在一个实例中输出到屏幕，另一个输出到打印机，再一个输出到记录文档，甚至同时输出到这三个文档。相比较于每种处理写一个单独的语句，能够有更好的实现方式如下：

　　spitOut(*STDIN);

　　spitOut(*LPHANDLE);

　　spitOut(*LOGHANDLE);

　　其中子程式spitOut的代码如下：

　　sub spitOut {

　　my $fh = shift;

　　print $fh "Gee Wilbur, I like this lettucen";

　　}

　　注意其中文档句柄引用的语法为*FILEHANDLE。

喜欢本文，那就收藏到：

上一篇: CGI教学:第四章设置WebServer以运行CGI

下一篇: Perl/TkFAQ-10.18.如何限制输入框中内容的宽度

相关推荐

相关资讯