Perl數組和引用使用指導
本文和大家重點討論一下Perl數組和引用的概念，Perl中的Perl數組和哈希表始終是一維的。因此，Perl數組和哈希表只保存標量值，不直接存貯Perl數組或其它的復雜數據結構。Perl數組的成員要么是數（或字符串）要么是引用。
一、Perl數組和引用
關于Perl語言應該記住的最重要的一點可能是：Perl中的Perl數組和哈希表始終是一維的。因此，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行將引用$pointer指向Perl數組@ARGV，第6行輸出ARGV的地址。$pointer返回Perl數組***個元素的地址，這與C語言中的Perl數組指針是類似的。第7行調用函數scalar()獲得Perl數組的元素個數，該參數亦可為@ARGV，但用指針則必須用@$pointer的形式指定其類型為Perl數組，$pointer給出地址，@符號說明傳遞的地址為Perl數組的***個元素的地址。第10行與第7行類似，第11行用形式$$pointer[$i]列出所有元素。
對關聯Perl數組使用反斜線操作符的方法是一樣的--把所有關聯Perl數組名換成引用$poniter。注意Perl數組和簡單變量（標量）的引用顯示時均帶有類型--ARRAY和SCALAR，哈希表（關聯Perl數組）和函數也一樣，分別為HASH和CODE。
與Perl數組類似，通過引用訪問哈希表的元素形式為$$pointer{$index}，當然，$index是哈希表的鍵值，而不僅是數字。還有幾種訪問形式，此外，構建哈希表還可以用=>操作符，可讀性更好些。下面再看一個例子：
- 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
結果輸出如下：
可以看到，前三種形式的輸出顯示了預期的結果，而后兩種則沒有。當你不清楚是否正確時，就輸出結果看看。在Perl中，有不明確的代碼就用print語句輸出來實驗一下，這能使你清楚Perl是怎樣解釋你的代碼的。
二、多維Perl數組
語句@array=list;可以創建Perl數組的引用，中括號可以創建匿名Perl數組的引用。下面語句為用于畫圖的三維Perl數組的例子：
$line=['solid','black',['1','2','3'],['4','5','6']];
此語句建立了一個含四個元素的三維Perl數組，變量$line指向該Perl數組。前兩個元素是標量，存貯線條的類型和顏色，后兩個元素是匿名Perl數組的引用，存貯線條的起點和終點。訪問其元素語法如下：
- $arrayReference->[$index]single-dimensionalarray
- $arrayReference->[$index1][$index2]two-dimensionalarray
- $arrayReference->[$index1][$index2][$index3]three-dimensionalarray
可以創建在你的智力、設計經驗和計算機的內存允許的情況下極盡復雜的結構，但***對可能讀到或管理你的代碼的人友好一些--盡量使代碼簡單些。另一方面，如果你想向別人炫耀你的編程能力，Perl給你足夠的機會和能力編寫連自己都難免糊涂的代碼。:)
建議：當你想使用多于三維的Perl數組時，***考慮使用其它數據結構來簡化代碼。
下面為創建和使用二維Perl數組的例子：
- 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
.
結果輸出如下：
- $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
【編輯推薦】
