perl實(shí)例分析教程之十五--

《perl實(shí)例分析教程之十五--》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、perl實(shí)例分析教程之十五>>Perl中的“引用”一、引用簡(jiǎn)介二、使用引用三、使用反斜線()操作符四、引用和數(shù)組五、多維數(shù)組六、子程序的引用七、數(shù)組與子程序八、文件句柄的引用一、引用簡(jiǎn)介引用就是指針，可以指向變量、數(shù)組、哈希表（也叫關(guān)聯(lián)數(shù)組）甚至子程序。Pascal或C程序員應(yīng)該對(duì)引用（即指針）的概念很熟悉，引用就是某值的地址，對(duì)其的使用則取決于程序員和語(yǔ)言的規(guī)定。在Perl中，可以把引用稱為指針，二者是通用的，無(wú)差別的。引用在創(chuàng)建復(fù)雜數(shù)據(jù)方面十分有用。Perl5中的兩種引用類型為硬引用和符號(hào)引用。符號(hào)引用含有變量的名字

2、，它對(duì)運(yùn)行時(shí)創(chuàng)建變量名并定位很有用，基本上，符號(hào)引用就象文件名或UNIX系統(tǒng)中的軟鏈接。而硬引用則象文件系統(tǒng)中的硬鏈接。Perl4只允許符號(hào)引用，給使用造成一些困難。例如，只允許通過(guò)名字對(duì)包的符號(hào)名哈希表（名為_(kāi)main{}）建立索引。Perl5則允許數(shù)據(jù)的硬引用，方便多了。硬引用跟蹤引用的計(jì)數(shù)，當(dāng)其數(shù)為零時(shí)，Perl自動(dòng)將被引用的項(xiàng)目釋放，如果該項(xiàng)目是對(duì)象，則析構(gòu)釋放到內(nèi)存池中。Perl本身就是個(gè)面向?qū)ο蟮恼Z(yǔ)言，因?yàn)镻erl中的任何東西都是對(duì)象，包和模塊使得對(duì)象更易于使用。簡(jiǎn)單變量的硬引用很簡(jiǎn)單，對(duì)于非簡(jiǎn)單變量的引用，

3、你必須顯式地解除引用并告訴其應(yīng)如何做，詳見(jiàn)《Perl中的面向?qū)ο缶幊獭?。二、使用引用本章中，?jiǎn)單變量指像$pointer這樣的變量，$pointer僅含一個(gè)數(shù)據(jù)項(xiàng)，其可以為數(shù)字、字符串或地址。任何簡(jiǎn)單變量均可保存硬引用。因?yàn)閿?shù)組和哈希表含有多個(gè)簡(jiǎn)單變量，所以可以建立多種組合而成的復(fù)雜的數(shù)據(jù)結(jié)構(gòu)，如數(shù)組的數(shù)組、哈希表的數(shù)組、子程序的哈希表等等。只要你理解其實(shí)只是在用簡(jiǎn)單變量在工作，就應(yīng)該可以正確的在最復(fù)雜的結(jié)構(gòu)中正確地解除引用。首先來(lái)看一些基本要點(diǎn)。如果$pointer的值為一個(gè)數(shù)組的指針，則通過(guò)形式$pointer來(lái)訪問(wèn)

4、數(shù)組中的元素。形式$pointer的意義為“取出$pointer中的地址值當(dāng)作數(shù)組使用”。類似的，%$pointer為指向哈希表中第一個(gè)元素的引用。有多種構(gòu)建引用的方法，幾乎可以對(duì)任何數(shù)據(jù)建立引用，如數(shù)組、簡(jiǎn)單變量、子程序、文件句柄，以及--C程序員會(huì)感興趣的--引用。Perl使你有能力寫出把自己都搞糊涂的極其復(fù)雜的代碼。:)下面看看Perl中創(chuàng)建和使用引用的方法。三、使用反斜線()操作符反斜線操作符與C語(yǔ)言中傳遞地址的操作符功能類似。一般是用創(chuàng)建變量又一個(gè)新的引用。下面為創(chuàng)建簡(jiǎn)單變量的引用的例子：$variavle=2

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

6、0;$pointer=$value;printf"nPointerAddress$pointerof$valuen";printf"nberofarguments:$in";9$i=0;10foreach($pointer){11printf"$i:$$pointer[$i++];n";12}運(yùn)行結(jié)果如下：$test1234PointerAddressofARGV=ARRAY(0x806c378)Numberofarguments:40:1;1:2;2:3;3:4;第5行將引用$pointer指向數(shù)組ARGV，第6行輸出

7、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ù)組名換成引用$poniter。注意數(shù)組和簡(jiǎn)單變量（標(biāo)量）的引用顯示時(shí)均帶有類型--ARRAY和SCALAR

8、，哈希表（關(guān)聯(lián)數(shù)組）和函數(shù)也一樣，分別為HA12下一頁(yè)>>>>這篇文章來(lái)自..，。SH和CODE。下面是哈希表的引用的例子。#!/usr/bin/perl1#2#UsingAssociativeArrayreferences3#4%month=(5'01','Jan',6'02','Feb',7'03','Mar',