本文和大家重点讨论一下Perl引用的概念,Pascal或C程序员应该对Perl引用(即指针)的概念很熟悉,Perl引用就是某值的地址,对其的使用则取决于程序员和语言的规定。在Perl中,可以把Perl引用称为指针,二者是通用的,无差别的。
一、Perl引用简介
Perl引用就是指针,可以指向变量、数组、哈希表(也叫关联数组)甚至子程序。Pascal或C程序员应该对Perl引用(即指针)的概念很熟悉,Perl引用就是某值的地址,对其的使用则取决于程序员和语言的规定。在Perl中,可以把Perl引用称为指针,二者是通用的,无差别的。Perl引用在创建复杂数据方面十分有用。
Perl5中的两种Perl引用类型为硬引用和符号引用。符号引用含有变量的名字,它对运行时创建变量名并定位很有用,基本上,符号引用就象文件名或UNIX系统中的软链接。而硬Perl引用则象文件系统中的硬链接。
Perl4只允许符号引用,给使用造成一些困难。例如,只允许通过名字对包的符号名哈希表(名为_main{})建立索引。Perl5则允许数据的硬Perl引用,方便多了。
硬Perl引用跟踪Perl引用的计数,当其数为零时,Perl自动将被Perl引用的项目释放,如果该项目是对象,则析构释放到内存池中。Perl本身就是个面向对象的语言,因为Perl中的任何东西都是对象,包和模块使得对象更易于使用。
简单变量的硬Perl引用很简单,对于非简单变量的Perl引用,你必须显式地解除Perl引用并告诉其应如何做,详见《第章Perl中的面向对象编程》。
二、使用Perl引用
本章中,简单变量指像$pointer这样的变量,$pointer仅含一个数据项,其可以为数字、字符串或地址。
任何简单变量均可保存硬Perl引用。因为数组和哈希表含有多个简单变量,所以可以建立多种组合而成的复杂的数据结构,如数组的数组、哈希表的数组、子程序的哈希表等等。只要你理解其实只是在用简单变量在工作,就应该可以正确的在最复杂的结构中正确地解除Perl引用。
首先来看一些基本要点。
如果$pointer的值为一个数组的指针,则通过形式@$pointer来访问数组中的元素。形式@$pointer的意义为“取出$pointer中的地址值当作数组使用”。类似的,%$pointer为指向哈希表中***个元素的Perl引用。
有多种构建Perl引用的方法,几乎可以对任何数据建立Perl引用,如数组、简单变量、子程序、文件句柄,以及--C程序员会感兴趣的--Perl引用。Perl使你有能力写出把自己都搞糊涂的极其复杂的代码。:)
下面看看Perl中创建和使用Perl引用的方法。
三、使用反斜线(\)操作符
反斜线操作符与C语言中传递地址的操作符&功能类似。一般是用\创建变量又一个新的Perl引用。下面为创建简单变量的Perl引用的例子:
- $variavle=22;
- $pointer=\$variable;
- $ice="jello";
- $iceprt=\$ice;
Perl引用$pointer指向存有$variable值的位置,Perl引用$iceptr指向"jello"。即使最初的Perl引用$variable销毁了,仍然可以通过$pointer访问该值,这是一个硬Perl引用,所以必须同时销毁$pointer和$variable以便该空间释放到内存池中。
【编辑推荐】