perl指针

本文和大家重点学习一下Perl引用/指针的概念，Perl引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。相信通过本文的学习你对Perl引用的概念一定会有深刻的认识。

 

Perl引用/指针

 

一、Perl引用简介

 

Perl引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对Perl引用（即指针）的概念很熟悉，Perl引用就是某值的地址，对其的使用则取决于程序员和语言的规定。在Perl中，可以把Perl引用称为指针，二者是通用的，无差别的。Perl引用在创建复杂数据方面十分有用。

Perl5中的两种Perl引用类型为硬Perl引用和符号Perl引用。符号Perl引用含有变量的名字，它对运行时创建变量名并定位很有用，基本上，符号Perl引用就象文件名或UNIX系统中的软链接。而硬Perl引用则象文件系统中的硬链接。

 

Perl4只允许符号Perl引用，给使用造成一些困难。例如，只允许通过名字对包的符号名哈希表（名为_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以便该空间释放到内存池中。

 

在上面的例子中，Perl引用变量$pointer存的是$variable的地址，而不是值本身，要获得值，形式为两个$符号，如下：

 

#!/usr/bin/perl  

$value=10;  

$pointer=/$value;  

printf"/nPointerAddress$pointerof$value/n";  

printf"/nWhatPointer*($pointer)pointsto$$pointer/n";  

结果输出如下：

 

PointerAddressSCALAR(0x806c520)of10

WhatPointer*(SCALAR(0x806c520))pointsto10

每次运行，输出结果中的地址会有所改变，但可以看到$pointer给出地址，而$$pointer给出$variable的值。

看一下地址的显示，SCALAR后面一串十六进制，SCALAR说明该地址指向简单变量（即标量），后面的数字是实际存贮值的地址。

注意：指针就是地址，通过指针可以访问该地址处存贮的数据。如果指针指向了无效的地址，就会得到不正确的数据。通常情况下，Perl会返回NULL值，但不该依赖于此，一定要在程序中把所有的指针正确地初始化，指向有效的数据项。

 

四、Perl引用和数组

 

关于Perl语言应该记住的最重要的一点可能是：Perl中的数组和哈希表始终是一维的。因此，数组和哈希表只保存标量值，不直接存贮数组或其它的复杂数据结构。数组的成员要么是数（或字符串）要么是Perl引用。

对数组和哈希表可以象对简单变量一样使用反斜线操作符，数组的Perl引用如下：

 

1#!/usr/bin/perl  

2#  

3#UsingArrayreferences  

4#  

5$pointer=/@ARGV;  

6printf"/nPointerAddressofARGV=$pointer/n";  

7$i=scalar(@$pointer);  

8printf"/nNumberofarguments:$i/n";  

9$i=0;  

10foreach(@$pointer){  

11printf"$i:$$pointer[$i++];/n";  

12}  

 

运行结果如下：

 

$test1234  

PointerAddressofARGV=ARRAY(0x806c378)  

Numberofarguments:4  

0:1;  

1:2;  

2:3;  

3:4;  

 

第5行将Perl引用$pointer指向数组@ARGV，第6行输出ARGV的地址。$pointer返回数组第一个元素的地址，这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数，该参数亦可为@ARGV，但用指针则必须用@$pointer的形式指定其类型为数组，$pointer给出地址，@符号说明传递的地址为数组的第一个元素的地址。第10行与第7行类似，第11行用形式$$pointer[$i]列出所有元素。

对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成Perl引用$poniter。注意数组和简单变量（标量）的Perl引用显示时均带有类型--ARRAY和SCALAR，哈希表（关联数组）和函数也一样，分别为HASH和CODE。