perl实例分析教程之十五--

《perl实例分析教程之十五--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、perl实例分析教程之十五>>Perl中的“引用”一、引用简介二、使用引用三、使用反斜线()操作符四、引用和数组五、多维数组六、子程序的引用七、数组与子程序八、文件句柄的引用一、引用简介引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对引用（即指针）的概念很熟悉，引用就是某值的地址，对其的使用则取决于程序员和语言的规定。在Perl中，可以把引用称为指针，二者是通用的，无差别的。引用在创建复杂数据方面十分有用。Perl5中的两种引用类型为硬引用和符号引用。符号引用含有变量的名字

2、，它对运行时创建变量名并定位很有用，基本上，符号引用就象文件名或UNIX系统中的软链接。而硬引用则象文件系统中的硬链接。Perl4只允许符号引用，给使用造成一些困难。例如，只允许通过名字对包的符号名哈希表（名为_main{}）建立索引。Perl5则允许数据的硬引用，方便多了。硬引用跟踪引用的计数，当其数为零时，Perl自动将被引用的项目释放，如果该项目是对象，则析构释放到内存池中。Perl本身就是个面向对象的语言，因为Perl中的任何东西都是对象，包和模块使得对象更易于使用。简单变量的硬引用很简单，对于非简单变量的引用，

3、你必须显式地解除引用并告诉其应如何做，详见《Perl中的面向对象编程》。二、使用引用本章中，简单变量指像$pointer这样的变量，$pointer仅含一个数据项，其可以为数字、字符串或地址。任何简单变量均可保存硬引用。因为数组和哈希表含有多个简单变量，所以可以建立多种组合而成的复杂的数据结构，如数组的数组、哈希表的数组、子程序的哈希表等等。只要你理解其实只是在用简单变量在工作，就应该可以正确的在最复杂的结构中正确地解除引用。首先来看一些基本要点。如果$pointer的值为一个数组的指针，则通过形式$pointer来访问

4、数组中的元素。形式$pointer的意义为“取出$pointer中的地址值当作数组使用”。类似的，%$pointer为指向哈希表中第一个元素的引用。有多种构建引用的方法，几乎可以对任何数据建立引用，如数组、简单变量、子程序、文件句柄，以及--C程序员会感兴趣的--引用。Perl使你有能力写出把自己都搞糊涂的极其复杂的代码。:)下面看看Perl中创建和使用引用的方法。三、使用反斜线()操作符反斜线操作符与C语言中传递地址的操作符功能类似。一般是用创建变量又一个新的引用。下面为创建简单变量的引用的例子：$variavle=2

5、2;$pointer=$variable;$ice="jello";$iceprt=$ice;引用$pointer指向存有$variable值的位置，引用$iceptr指向"jello"。即使最初的引用$variable销毁了，仍然可以通过$pointer访问该值，这是一个硬引用，所以必须同时销毁$pointer和$variable以便该空间释放到内存池中。在上面的例子中，引用变量$pointer存的是$variable的地址，而不是值本身，要获得值，形式为两个$符号，如下：#!/usr/bin/perl$value=1

6、0;$pointer=$value;printf"nPointerAddress$pointerof$valuen";printf"nberofarguments:$in";9$i=0;10foreach($pointer){11printf"$i:$$pointer[$i++];n";12}运行结果如下：$test1234PointerAddressofARGV=ARRAY(0x806c378)Numberofarguments:40:1;1:2;2:3;3:4;第5行将引用$pointer指向数组ARGV，第6行输出

7、ARGV的地址。$pointer返回数组第一个元素的地址，这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数，该参数亦可为ARGV，但用指针则必须用$pointer的形式指定其类型为数组，$pointer给出地址，符号说明传递的地址为数组的第一个元素的地址。第10行与第7行类似，第11行用形式$$pointer[$i]列出所有元素。对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成引用$poniter。注意数组和简单变量（标量）的引用显示时均带有类型--ARRAY和SCALAR

8、，哈希表（关联数组）和函数也一样，分别为HA12下一页>>>>这篇文章来自..，。SH和CODE。下面是哈希表的引用的例子。#!/usr/bin/perl1#2#UsingAssociativeArrayreferences3#4%month=(5'01','Jan',6'02','Feb',7'03','Mar',