perl学习笔记12 z

1．  引用

有一种标量可以保存一个值，利用这个值可以在内存找到另外的一个值。这种类型的标量被称为引用。一个引用间接地指向一个值。利用引用来指向另一个值称为“间接引用”。

 

引用分为两种类型：硬引用（hard reference）和符号引用（symbolic reference）。硬引用直接指向内存中的一个值（而不是一个变量），引用指向的值称为引用对象（referent）。符号引用又称为软引用，只包含他们所指向的名字。

 

创建硬引用时，需要在含有引用对象的变量名前加上单反斜杠运算符/。引用变量的命名和其他标量一样，在名字前加上$。要得到引用所指向的值，必须使用完整的名字（包括名字前的$）来解除饮用（dereference）。因此，如果要得到$reference指向的值就可以用$$reference访问。同样，可以使用@$reference和%$reference来访问引用所指向的数组或列表。

 

打印未经解除的引用将会得到一个由引用类型和引用对象（$variable的值）在内存中的地址所组成的一个字符串。虽然引用可以转换成字符串，但这种字符串并不能被转换成引用。

 

2．  对非标量的引用

创建非标量变量的引用与创建标量变量的引用遵循同样的语法——在非标量变量名前加上反斜杠/。因此，/@array返回一个对于数组@array的引用，/%hash返回一个对于散列的引用。

非标量的解除引用与标量的解除引用存在一些差别：

访问特定数组元素，可用如下两种方法对数组解除引用。

Ø         第一种方法是当要访问数组中某一个元素时，像使用数组名一样使用引用。例如：$$reference[2]访问数组中的第三个元素。

Ø         第二种方法是用箭头运算符（à）来对数组的引用进行引用解除。例如：$referenceà[2]。

要想指向整个数组，可以在引用名前加@类型标识符，@$reference。

 

上述方法同样也适用于访问散列表。因此，如要访问关键码poodle的元素，可以用$$reference{‘poodle’}或者 $referenceà{‘poodle’}。要想指向整个散列表，可以在引用名前加类型标识符%，%$reference。

 

如果一段代码返回一个引用，那么可以使用如下方法解除引用。因此，如果$x>2那么表达式 ${ ($x>2)? $reference1:$reference2 }对$reference1解除引用；如果$x≤2,则对$reference2解除引用。

 

要创建一个对现有函数的引用，通常是在调用库函数时，才使用对函数的调用。把指向自己创建的函数引用放入库函数中，就可以调用自己的函数。这种方法称为回调（callback）。

 

要创建一个指向函数的引用，要使用单反斜杠运算符/和类型标识符&。例如，/&yourFunction创建一个对函数yourFunction的引用。如果变量$functionRef中含有一个函数引用，那么就可以用 &$functionRef来调用引用所指向的函数。使用引用来调用函数与使用一般的函数一样，参数放在函数的括号里。也可以使用箭头运算符，如$functionRef à ()。

 

还可以创建对引用的引用，这被称为嵌套引用。嵌套引用可以是任意深度。对嵌套引用的解除，需要先额外对指向这个引用的引用进行解除。因此，如果有一个指向某标量的引用，要想对指向这个引用的引用进行解除，就必须写成$$$name。如果指向数组的引用，需要使用指向这个引用的引用来访问数组的第4个元素，则写成$$$name[3]或$$nameà[3]。

 

3．  匿名结构

匿名结构不直接与变量名相关联，或者说，存在一个对数据的引用，但是没有可供直接访问该数据的变量名。当没有必要在程序中长期保存某个变量名时，使用这种结构。

Perl提供几种创建匿名数据结构的方法。

Ø         使用匿名数组构造函数(anonymousarray composer)创建匿名数组。使用匿名数组构造函数，需要使用方括号（ [] ）将数组元素封闭起来。返回值是一个指向未命名数组的引用。匿名散列表于数组类似，但使用的是花括号（ {} ）。对匿名结构的访问与其他结构一样，可以通过引用实现。例如：

my $array = [ qw ( There was an old lady who lived …) ]

Ø         在不使用匿名数组构造函数的情况下，可以通过自动生成的方式构建匿名数组。如：@ $array = ( “humpty”,“dumpty”);这个表达式相当于 ( /”humpty”, /”dumpty” )。这是一个引用列表。

Ø         另一种自动生成方式，把一个值简单的赋给一个不存在数组中的某个元素，就可以创建一个数组。

 

注意：要仔细区分“列表引用”和“引用列表”。前者是由一系列引用构成的一个列表；后者是对一个列表的引用。

 

声明一个匿名函数用声明一个标准函数相似，只是该函数名被省略了。一个匿名函数可以被赋给一个引用以便以后使用。

              $productRef = sub                           #定义匿名函数

              {

                     ……                                          #函数体

              }

             

              $printval = & $productRef(1,2,3,4)   #调用匿名函数

 

利用引用和匿名函数结构，可以把函数的返回值插入到双引号字符串中。如果先创建一个指向函数调用返回值的引用，在解除引用，该引用就会被插入到双引号字符串中，得到预期的结果。如：

              print ( “ The number is ${/square(5)} . /n ”)

 

4．  封装模块

匿名函数只是在运行时存在。创建一个匿名函数，其代码部分有自己的词法上下文。匿名函数里，在相同的词法上下文中创建的变量值，可以被该匿名函数在以后的程序中使用。匿名函数保存这些变量值被创建和执行的上下文信息，就好像他们仍然在原有的上下文中一样。匿名函数的行为实际上是对词法变量的封闭。

              sub animalInFood

              {

                     my $x = shift( );

                     return sub                                              #调用匿名函数

{

my $y = shift( );                       

print ( “There is a $x in my $y! /n” );

}

}

 

my $flyInFood = animalInFood ( “fly”);         #第一次$x=fly

my $flyInFood = animalInFood ( “frog”);              #第二次$x=frog

 

& $flyInFood ( “soup” );                                #第一次$y=soup

& $flyInFood ( “coffee” );                              #第二次$y=coffee

第一次函数引用时赋值给$x=fly;第二次函数引用时再次赋值给$x=frog;由于使用my关键字所以第二次的赋值不影响第一次的。在随后的函数引用解除时又分别两次给$y赋值。

 

5．  作为函数参数引用

传递给函数的参数是存放在特殊变量@_中的。引用的一个主要用途就是把非标量作为参数传递给函数。利用引用，函数可以接受任何能被引用所保存的结构作为参数。

函数ref接收引用类型的参数，并且返回一个描述该引用类型的字符串。例如：

              $x = ref ( /@array );

 

6．  嵌套数据结构

数组的数组，这种数据结构是指一个数组，她的每个元素都是指向别的数组的引用。访问这种数组中的元素需要两个下标，一个下标决定别引用数组在第一个数组中的位置，另一个下标用于判断元素在被引用数组中的位置。

使用箭头符号à，当$i是第一个数组的下标，而$j是第二个数组的下标时，数组元素可以写成 $array[$i] à[$j]。当数组元素实际上就是对其他数组的引用时，可以省略箭头符号à并且用语法 $array[$i][$j]来引用数组元素。

实际上这只是一个引用数组，但可以当作多维数组使用。

 

可以通过匿名数组的方式对多维数组进行初始化。如：

              $array = [

[ 1,2,3,4, ],

[ 2,3,4,5, ],

[ 3,4,5,6, ]

];

创建多维数组的技术同样可以用于创建其他类型的嵌套数据结构。如创建散列表的数组、数组的散列表等等。并且嵌套深度可以任意大。

 

数组的散列表允许用户将多个值与一个关键码联系在一起。

 

7．  垃圾收集和循环使用

当不再使用一个数据结构时，只需简单忘记他，perl会自动释放与此结构相关联的内存。perl中用于释放内存的部分叫垃圾收集器（ garbage collector）。垃圾收集器释放肯定不会用到的内存，它通过引用计数的机制实现功能。每个内存块都有一个内部引用技术器，这个值表示有多少个引用包含了这个地址。当这个计数器变成0时，就不再有引用指向这个内存块，然后这个内存块就可以被释放。

 

当出现循环引用（一个引用指向别的引用，别的引用最终又返回该引用）的情况的时候，垃圾收集器是无法释放内存的，这就是内存泄漏洞。

 

8．  符号引用

符号引用实际上指的是一些标量，这些标量通过保存某个变量的名称来指向那个变量。符号引用的效率不高。声明一个符号引用只需将变量的名字（无需特别的字符）赋给另一个变量。第二个变量就可以像一个普通的引用那样进行解除引用。例如：如果想要让变量$reference引用变量$name，可以写成 $reference = $name，然后使用 $ $reference或 $ { $reference }访问该值。

有的时候直到运行的时候才知道要引用的变量名，符号引用主要就是用于这种情况。

 

9．  类型通配

在perl中所有的包全局变量都存在一个符号表中。perl使用这个表来查找变量及其在内存中的位置。每个包全局变量在符号表有一个入口，而且这个入口包含着特定名字的不同变量类型。这个入口就叫类型通配。

 

每个类型通配都包含了这个类型通配名字所指向的所有变量的类型。类型通配的类型标志符是*。

 

类型通配可以相互赋值，如 *newname = *name。这使得所有以newname命名的数据类型都成了name命名的相应类型的变量的同义词。

 

注意：my类变量不能与类型通配共同使用。类型通配属于符号表，而my类的变量并不存在符号表中。

 

类型通配提供了产生引用的另一种方法。可以将类型通配看作是一个散列表，其中存储的是变量类型，与所希望引用的变量相联系。例如，*name{SCALAR}产生一个对于$name的引用。对一个带有类型名字的类型通配解除引用，可以得到给类型变量的值。类型通配可以向引用一样的被解除引用。他们之间的区别在于引用只能指向一个特定类型，而类型通配引用可以指向所有类型。

 

一般而言，除非迫不得已，否则最好不要使用类型通配。

 

类型通配可以用于创建常量标量。通过把一个引用赋给一个非类型通配的值。如：

              *PI = 3.1415926

 

类型通配的另一种用处是为先前的匿名数据结构命名。如：

              my  $anonymous = [ 1,2,3,4 ];

              *name = $anonymous;

              print  “@name /n”;

 

10．              文件句柄的引用

类型通配的另一个用途是引用文件句柄。由于没有特别的标识符用于标识文件句柄，因此无法创建对于文件句柄的引用。然而，一个类型通配可以包含与其同名的文件句柄，因此，可以把类型通配当成对文件句柄的引用。只要将这个类型通配赋给一个标量，就可以在任何需要正常使用文件句柄的地方使用标量。

 

任何使用普通引用的地方都可以使用类型通配引用，通过这种方法可以将文件句柄传递给函数。

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>