Perl基礎 Perl引用和數組用法解析
本文和大家重點討論一下Perl引用和數組的概念，Perl5中的兩種Perl引用類型為硬引用和符號引用。符號引用含有變量的名字，它對運行時創建變量名并定位很有用，基本上，符號Perl引用就象文件名或UNIX系統中的軟鏈接。而硬Perl引用則象文件系統中的硬鏈接。
Perl學習筆記
一、Perl引用簡介
Perl引用就是指針，可以指向變量、數組、哈希表（也叫關聯數組）甚至子程序。Pascal或C程序員應該對Perl引用（即指針）的概念很熟悉，Perl引用就是某值的地址，對其的使用則取決于程序員和語言的規定。在Perl中，可以把Perl引用稱為指針，二者是通用的，無差別的。Perl引用在創建復雜數據方面十分有用。
Perl5中的兩種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值，但不該依賴于此，一定要在程序中把所有的指針正確地初始化，指向有效的數據項。#p#
四、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。
與數組類似，通過Perl引用訪問哈希表的元素形式為$$pointer{$index}，當然，$index是哈希表的鍵值，而不僅是數字。還有幾種訪問形式，此外，構建哈希表還可以用=>操作符，可讀性更好些。
五、多維數組
語句@array=list;可以創建數組的Perl引用，中括號可以創建匿名數組的Perl引用。下面語句為用于畫圖的三維數組的例子：
$line=['solid','black',['1','2','3'],['4','5','6']];
此語句建立了一個含四個元素的三維數組，變量$line指向該數組。前兩個元素是標量，存貯線條的類型和顏色，后兩個元素是匿名數組的Perl引用，存貯線條的起點和終點。訪問其元素語法如下：
$arrayReference->[$index]single-dimensionalarray
$arrayReference->[$index1][$index2]two-dimensionalarray
$arrayReference->[$index1][$index2][$index3]three-dimensionalarray
可以創建在你的智力、設計經驗和計算機的內存允許的情況下極盡復雜的結構，但***對可能讀到或管理你的代碼的人友好一些--盡量使代碼簡單些。另一方面，如果你想向別人炫耀你的編程能力，Perl給你足夠的機會和能力編寫連自己都難免糊涂的代碼。:)
建議：當你想使用多于三維的數組時，***考慮使用其它數據結構來簡化代碼。
六、子程序的Perl引用
Perl中子程序的Perl引用與C中函數的指針類似，構造方法如下：
$pointer_to_sub=sub{...declarationofsub...};
通過所構造的Perl引用調用子程序的方法為：
&$pointer_to_sub(parameters);
本文來自CSDN博客，轉載請標明出處：http://blog.csdn.net/njuxukai/archive/2009/08/27/4487084.aspx
【編輯推薦】
