本文和大家重點(diǎn)討論一下Perl數(shù)組和引用的概念，Perl中的Perl數(shù)組和哈希表始終是一維的。因此，Perl數(shù)組和哈希表只保存標(biāo)量值，不直接存貯Perl數(shù)組或其它的復(fù)雜數(shù)據(jù)結(jié)構(gòu)。Perl數(shù)組的成員要么是數(shù)（或字符串）要么是引用。

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

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

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行將引用$pointer指向Perl數(shù)組@ARGV，第6行輸出ARGV的地址。$pointer返回Perl數(shù)組***個(gè)元素的地址，這與C語(yǔ)言中的Perl數(shù)組指針是類(lèi)似的。第7行調(diào)用函數(shù)scalar()獲得Perl數(shù)組的元素個(gè)數(shù)，該參數(shù)亦可為@ARGV，但用指針則必須用@$pointer的形式指定其類(lèi)型為Perl數(shù)組，$pointer給出地址，@符號(hào)說(shuō)明傳遞的地址為Perl數(shù)組的***個(gè)元素的地址。第10行與第7行類(lèi)似，第11行用形式$$pointer[$i]列出所有元素。
對(duì)關(guān)聯(lián)Perl數(shù)組使用反斜線操作符的方法是一樣的--把所有關(guān)聯(lián)Perl數(shù)組名換成引用$poniter。注意Perl數(shù)組和簡(jiǎn)單變量（標(biāo)量）的引用顯示時(shí)均帶有類(lèi)型--ARRAY和SCALAR，哈希表（關(guān)聯(lián)Perl數(shù)組）和函數(shù)也一樣，分別為HASH和CODE。

與Perl數(shù)組類(lèi)似，通過(guò)引用訪問(wèn)哈希表的元素形式為$$pointer{$index}，當(dāng)然，$index是哈希表的鍵值，而不僅是數(shù)字。還有幾種訪問(wèn)形式，此外，構(gòu)建哈希表還可以用=>操作符，可讀性更好些。下面再看一個(gè)例子：

1#!/usr/bin/perl  
2#  
3#UsingArrayreferences  
4#  
5%weekday=(  
6'01'=>'Mon',  
7'02'=>'Tue',  
8'03'=>'Wed',  
9'04'=>'Thu',  
10'05'=>'Fri',  
11'06'=>'Sat',  
12'07'=>'Sun',  
13);  
14$pointer=\%weekday;  
15$i='05';  
16printf"\n==================starttest=================\n";  
17#  
18#Thesenexttwolinesshouldshowanoutput  
19#  
20printf'$$pointer{$i}is';  
21printf"$$pointer{$i}\n";  
22printf'${$pointer}{$i}is';  
23printf"${$pointer}{$i}\n";  
24printf'$pointer->{$i}is';  
25  
26printf"$pointer->{$i}\n";  
27#  
28#Thesenexttwolinesshouldnotshowanything29#  
30printf'${$pointer{$i}}is';  
31printf"${$pointer{$i}}\n";  
32printf'${$pointer->{$i}}is';  
33printf"${$pointer->{$i}}";  
34printf"\n==================endoftest=================\n";  
35  

結(jié)果輸出如下：

==================starttest=================  
$$pointer{$i}isFri  
${$pointer}{$i}isFri  
$pointer->{$i}isFri  
${$pointer{$i}}is  
${$pointer->{$i}}is 
==================endoftest================= 

 可以看到，前三種形式的輸出顯示了預(yù)期的結(jié)果，而后兩種則沒(méi)有。當(dāng)你不清楚是否正確時(shí)，就輸出結(jié)果看看。在Perl中，有不明確的代碼就用print語(yǔ)句輸出來(lái)實(shí)驗(yàn)一下，這能使你清楚Perl是怎樣解釋你的代碼的。

二、多維Perl數(shù)組

語(yǔ)句@array=list;可以創(chuàng)建Perl數(shù)組的引用，中括號(hào)可以創(chuàng)建匿名Perl數(shù)組的引用。下面語(yǔ)句為用于畫(huà)圖的三維Perl數(shù)組的例子：
$line=['solid','black',['1','2','3'],['4','5','6']];
此語(yǔ)句建立了一個(gè)含四個(gè)元素的三維Perl數(shù)組，變量$line指向該P(yáng)erl數(shù)組。前兩個(gè)元素是標(biāo)量，存貯線條的類(lèi)型和顏色，后兩個(gè)元素是匿名Perl數(shù)組的引用，存貯線條的起點(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ì)和能力編寫(xiě)連自己都難免糊涂的代碼。:)
建議：當(dāng)你想使用多于三維的Perl數(shù)組時(shí)，***考慮使用其它數(shù)據(jù)結(jié)構(gòu)來(lái)簡(jiǎn)化代碼。

下面為創(chuàng)建和使用二維Perl數(shù)組的例子：

1#!/usr/bin/perl  
2#  
3#UsingMulti-dimensionalArrayreferences  
4#  
5$line=['solid','black',['1','2','3'],['4','5','6']];  
6print"\$line->[0]=$line->[0]\n";  
7print"\$line->[1]=$line->[1]\n";  
8print"\$line->[2][0]=$line->[2][0]\n";  
9print"\$line->[2][1]=$line->[2][1]\n";  
10print"\$line->[2][2]=$line->[2][2]\n";  
11print"\$line->[3][0]=$line->[3][0]\n";  
12print"\$line->[3][1]=$line->[3][1]\n";  
13print"\$line->[3][2]=$line->[3][2]\n";  
14print"\n";#Theobligatoryoutputbeautifier 

.
結(jié)果輸出如下：

$line->[0]=solid  
$line->[1]=black  
$line->[2][0]=1  
$line->[2][1]=2  
$line->[2][2]=3  
$line->[3][0]=4  
$line->[3][1]=5  
$line->[3][2]=6  
 

【編輯推薦】

1. Perl語(yǔ)法 Perl數(shù)組和列表用法解析
2. 暢談Perl數(shù)組的使用技巧
3. Perl數(shù)組用法詳盡解讀
4. 技術(shù)分享 Perl數(shù)組--列表的存貯如何進(jìn)行
5. 技術(shù)分享 解析Perl模塊創(chuàng)建和導(dǎo)入方法