您好,登錄后才能下訂單哦!
這篇文章將為大家詳細(xì)講解有關(guān)Perl數(shù)組和引用怎么用,小編覺得挺實(shí)用的,因此分享給大家做個(gè)參考,希望大家閱讀完這篇文章后可以有所收獲。
一、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ù)組指針是類似的。第7行調(diào)用函數(shù)scalar()獲得Perl數(shù)組的元素個(gè)數(shù),該參數(shù)亦可為@ARGV,但用指針則必須用@$pointer的形式指定其類型為Perl數(shù)組,$pointer給出地址,@符號(hào)說(shuō)明傳遞的地址為Perl數(shù)組的***個(gè)元素的地址。第10行與第7行類似,第11行用形式$$pointer[$i]列出所有元素。
對(duì)關(guān)聯(lián)Perl數(shù)組使用反斜線操作符的方法是一樣的--把所有關(guān)聯(lián)Perl數(shù)組名換成引用$poniter。注意Perl數(shù)組和簡(jiǎn)單變量(標(biāo)量)的引用顯示時(shí)均帶有類型--ARRAY和SCALAR,哈希表(關(guān)聯(lián)Perl數(shù)組)和函數(shù)也一樣,分別為HASH和CODE。
與Perl數(shù)組類似,通過(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é)果,而后兩種則沒有。當(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ǔ)句為用于畫圖的三維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)量,存貯線條的類型和顏色,后兩個(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ì)和能力編寫連自己都難免糊涂的代碼。:)
建議:當(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
關(guān)于“Perl數(shù)組和引用怎么用”這篇文章就分享到這里了,希望以上內(nèi)容可以對(duì)大家有一定的幫助,使各位可以學(xué)到更多知識(shí),如果覺得文章不錯(cuò),請(qǐng)把它分享出去讓更多的人看到。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。