本文和大家重點(diǎn)討論一下Perl引用和數(shù)組的概念，Perl5中的兩種Perl引用類型為硬引用和符號(hào)引用。符號(hào)引用含有變量的名字，它對(duì)運(yùn)行時(shí)創(chuàng)建變量名并定位很有用，基本上，符號(hào)Perl引用就象文件名或UNIX系統(tǒng)中的軟鏈接。而硬Perl引用則象文件系統(tǒng)中的硬鏈接。

Perl學(xué)習(xí)筆記

一、Perl引用簡(jiǎn)介

Perl引用就是指針，可以指向變量、數(shù)組、哈希表（也叫關(guān)聯(lián)數(shù)組）甚至子程序。Pascal或C程序員應(yīng)該對(duì)Perl引用（即指針）的概念很熟悉，Perl引用就是某值的地址，對(duì)其的使用則取決于程序員和語(yǔ)言的規(guī)定。在Perl中，可以把Perl引用稱為指針，二者是通用的，無(wú)差別的。Perl引用在創(chuàng)建復(fù)雜數(shù)據(jù)方面十分有用。
Perl5中的兩種Perl引用類型為硬引用和符號(hào)引用。符號(hào)引用含有變量的名字，它對(duì)運(yùn)行時(shí)創(chuàng)建變量名并定位很有用，基本上，符號(hào)Perl引用就象文件名或UNIX系統(tǒng)中的軟鏈接。而硬Perl引用則象文件系統(tǒng)中的硬鏈接。

Perl4只允許符號(hào)Perl引用，給使用造成一些困難。例如，只允許通過(guò)名字對(duì)包的符號(hào)名哈希表（名為_(kāi)main{}）建立索引。Perl5則允許數(shù)據(jù)的硬Perl引用，方便多了。
硬Perl引用跟蹤Perl引用的計(jì)數(shù)，當(dāng)其數(shù)為零時(shí)，Perl自動(dòng)將被Perl引用的項(xiàng)目釋放，如果該項(xiàng)目是對(duì)象，則析構(gòu)釋放到內(nèi)存池中。Perl本身就是個(gè)面向?qū)ο蟮恼Z(yǔ)言，因?yàn)镻erl中的任何東西都是對(duì)象，包和模塊使得對(duì)象更易于使用。
簡(jiǎn)單變量的硬Perl引用很簡(jiǎn)單，對(duì)于非簡(jiǎn)單變量的Perl引用，你必須顯式地解除Perl引用并告訴其應(yīng)如何做，詳見(jiàn)《第章Perl中的面向?qū)ο缶幊獭贰?/p>

二、使用Perl引用

本章中，簡(jiǎn)單變量指像$pointer這樣的變量，$pointer僅含一個(gè)數(shù)據(jù)項(xiàng)，其可以為數(shù)字、字符串或地址。
任何簡(jiǎn)單變量均可保存硬Perl引用。因?yàn)閿?shù)組和哈希表含有多個(gè)簡(jiǎn)單變量，所以可以建立多種組合而成的復(fù)雜的數(shù)據(jù)結(jié)構(gòu)，如數(shù)組的數(shù)組、哈希表的數(shù)組、子程序的哈希表等等。只要你理解其實(shí)只是在用簡(jiǎn)單變量在工作，就應(yīng)該可以正確的在最復(fù)雜的結(jié)構(gòu)中正確地解除Perl引用。

首先來(lái)看一些基本要點(diǎn)。

如果$pointer的值為一個(gè)數(shù)組的指針，則通過(guò)形式@$pointer來(lái)訪問(wèn)數(shù)組中的元素。形式@$pointer的意義為“取出$pointer中的地址值當(dāng)作數(shù)組使用”。類似的，%$pointer為指向哈希表中***個(gè)元素的Perl引用。
有多種構(gòu)建Perl引用的方法，幾乎可以對(duì)任何數(shù)據(jù)建立Perl引用，如數(shù)組、簡(jiǎn)單變量、子程序、文件句柄，以及--C程序員會(huì)感興趣的--Perl引用。Perl使你有能力寫出把自己都搞糊涂的極其復(fù)雜的代碼。:)
下面看看Perl中創(chuàng)建和使用Perl引用的方法。

三、使用反斜線(\)操作符

反斜線操作符與C語(yǔ)言中傳遞地址的操作符&功能類似。一般是用\創(chuàng)建變量又一個(gè)新的Perl引用。下面為創(chuàng)建簡(jiǎn)單變量的Perl引用的例子：
 

$variavle=22;  
$pointer=\$variable;  
$ice="jello";  
$iceprt=\$ice;  

Perl引用$pointer指向存有$variable值的位置，Perl引用$iceptr指向"jello"。即使最初的Perl引用$variable銷毀了，仍然可以通過(guò)$pointer訪問(wèn)該值，這是一個(gè)硬Perl引用，所以必須同時(shí)銷毀$pointer和$variable以便該空間釋放到內(nèi)存池中。
在上面的例子中，Perl引用變量$pointer存的是$variable的地址，而不是值本身，要獲得值，形式為兩個(gè)$符號(hào)，如下：
 

#!/usr/bin/Perl  
$value=10;  
$pointer=\$value;  
printf"\nPointerAddress$pointerof$value\n";  
printf"\nWhatPointer*($pointer)pointsto$$pointer\n";  

結(jié)果輸出如下：

PointerAddressSCALAR(0x806c520)of10
WhatPointer*(SCALAR(0x806c520))pointsto10
每次運(yùn)行，輸出結(jié)果中的地址會(huì)有所改變，但可以看到$pointer給出地址，而$$pointer給出$variable的值。
看一下地址的顯示，SCALAR后面一串十六進(jìn)制，SCALAR說(shuō)明該地址指向簡(jiǎn)單變量（即標(biāo)量），后面的數(shù)字是實(shí)際存貯值的地址。
注意：指針就是地址，通過(guò)指針可以訪問(wèn)該地址處存貯的數(shù)據(jù)。如果指針指向了無(wú)效的地址，就會(huì)得到不正確的數(shù)據(jù)。通常情況下，Perl會(huì)返回NULL值，但不該依賴于此，一定要在程序中把所有的指針正確地初始化，指向有效的數(shù)據(jù)項(xiàng)。#p#

四、Perl引用和數(shù)組

關(guān)于Perl語(yǔ)言應(yīng)該記住的最重要的一點(diǎn)可能是：Perl中的數(shù)組和哈希表始終是一維的。因此，數(shù)組和哈希表只保存標(biāo)量值，不直接存貯數(shù)組或其它的復(fù)雜數(shù)據(jù)結(jié)構(gòu)。數(shù)組的成員要么是數(shù)（或字符串）要么是Perl引用。
對(duì)數(shù)組和哈希表可以象對(duì)簡(jiǎn)單變量一樣使用反斜線操作符，數(shù)組的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}  

運(yùn)行結(jié)果如下：
 

$test1234  
PointerAddressofARGV=ARRAY(0x806c378)  
Numberofarguments:4  
0:1;  
1:2;  
2:3;  

3:4;第5行將Perl引用$pointer指向數(shù)組@ARGV，第6行輸出ARGV的地址。$pointer返回?cái)?shù)組***個(gè)元素的地址，這與C語(yǔ)言中的數(shù)組指針是類似的。第7行調(diào)用函數(shù)scalar()獲得數(shù)組的元素個(gè)數(shù)，該參數(shù)亦可為@ARGV，但用指針則必須用@$pointer的形式指定其類型為數(shù)組，$pointer給出地址，@符號(hào)說(shuō)明傳遞的地址為數(shù)組的***個(gè)元素的地址。第10行與第7行類似，第11行用形式$$pointer[$i]列出所有元素。
對(duì)關(guān)聯(lián)數(shù)組使用反斜線操作符的方法是一樣的--把所有關(guān)聯(lián)數(shù)組名換成Perl引用$poniter。注意數(shù)組和簡(jiǎn)單變量（標(biāo)量）的Perl引用顯示時(shí)均帶有類型--ARRAY和SCALAR，哈希表（關(guān)聯(lián)數(shù)組）和函數(shù)也一樣，分別為HASH和CODE。
與數(shù)組類似，通過(guò)Perl引用訪問(wèn)哈希表的元素形式為$$pointer{$index}，當(dāng)然，$index是哈希表的鍵值，而不僅是數(shù)字。還有幾種訪問(wèn)形式，此外，構(gòu)建哈希表還可以用=>操作符，可讀性更好些。

五、多維數(shù)組

語(yǔ)句@array=list;可以創(chuàng)建數(shù)組的Perl引用，中括號(hào)可以創(chuàng)建匿名數(shù)組的Perl引用。下面語(yǔ)句為用于畫圖的三維數(shù)組的例子：
$line=['solid','black',['1','2','3'],['4','5','6']];
此語(yǔ)句建立了一個(gè)含四個(gè)元素的三維數(shù)組，變量$line指向該數(shù)組。前兩個(gè)元素是標(biāo)量，存貯線條的類型和顏色，后兩個(gè)元素是匿名數(shù)組的Perl引用，存貯線條的起點(diǎn)和終點(diǎn)。訪問(wèn)其元素語(yǔ)法如下：

$arrayReference->[$index]single-dimensionalarray
$arrayReference->[$index1][$index2]two-dimensionalarray
$arrayReference->[$index1][$index2][$index3]three-dimensionalarray
可以創(chuàng)建在你的智力、設(shè)計(jì)經(jīng)驗(yàn)和計(jì)算機(jī)的內(nèi)存允許的情況下極盡復(fù)雜的結(jié)構(gòu)，但***對(duì)可能讀到或管理你的代碼的人友好一些--盡量使代碼簡(jiǎn)單些。另一方面，如果你想向別人炫耀你的編程能力，Perl給你足夠的機(jī)會(huì)和能力編寫連自己都難免糊涂的代碼。:)
建議：當(dāng)你想使用多于三維的數(shù)組時(shí)，***考慮使用其它數(shù)據(jù)結(jié)構(gòu)來(lái)簡(jiǎn)化代碼。

六、子程序的Perl引用

Perl中子程序的Perl引用與C中函數(shù)的指針類似，構(gòu)造方法如下：
$pointer_to_sub=sub{...declarationofsub...};
通過(guò)所構(gòu)造的Perl引用調(diào)用子程序的方法為：
&$pointer_to_sub(parameters);

本文來(lái)自CSDN博客，轉(zhuǎn)載請(qǐng)標(biāo)明出處：http://blog.csdn.net/njuxukai/archive/2009/08/27/4487084.aspx

【編輯推薦】

1. 詳解Perl引用/指針用法
2. 解析Perl引用中Perl直接應(yīng)用用法
3. 暢談Perl數(shù)組的使用技巧
4. Perl變量中Perl數(shù)組概念詳解
5. 技術(shù)分享 解析Perl模塊創(chuàng)建和導(dǎo)入方法