首先，我們定義幾個(gè)預(yù)備性的術(shù)語。
實(shí)例(instance)：一個(gè)對(duì)象的實(shí)例化實(shí)現(xiàn)。
標(biāo)識(shí)(identity)：每個(gè)對(duì)象的實(shí)例都需要一個(gè)可以唯一標(biāo)識(shí)這個(gè)實(shí)例的標(biāo)記。
實(shí)例屬性（instanceattribute）：一個(gè)對(duì)象就是一組屬性的集合。
實(shí)例方法(instancemethod)：所有存取或者更新對(duì)象某個(gè)實(shí)例一條或者多條屬性的函數(shù)的集合。
類屬性（classattribute）：屬于一個(gè)類中所有對(duì)象的屬性，不會(huì)只在某個(gè)實(shí)例上發(fā)生變化。
類方法（classmethod）：那些無須特定的對(duì)性實(shí)例就能夠工作的從屬于類的函數(shù)。

基于匿名散列表的方法

首先我們來談?wù)劵谀涿⒘斜淼拿嫦驅(qū)ο髮?shí)現(xiàn)。首先，我們需要定一個(gè)匿名散列表，并用一個(gè)引用指向這個(gè)匿名散列表。如清單1所示，我們定義了一個(gè)初始化函數(shù)來封裝這個(gè)匿名散列表的初始化過程。這個(gè)函數(shù)接受參數(shù)作為初始值，并且用這些值初始化其內(nèi)部包含的匿名散列表，并且返回一個(gè)指向這個(gè)匿名散列表的引用。在這個(gè)例子當(dāng)中，我們創(chuàng)建了一個(gè)Person模塊，并且定義了一個(gè)可以實(shí)例化模塊Person的new函數(shù)。

清單1.基于匿名哈希表的面向?qū)ο缶幊?br />  

packagePerson;  
subnew{  
my($name,$age)=@_;  
my$r_object={  
“name”=>$name,  
“age”=>$age  
}  
return$r_object;  
}  
 
my$personA=Person->new(“Tommy”,22);  
my$personB=Person->new(“Jerry”,30);  
print“PersonA’sname:”.$personA->{name}.“age:”.$personA->{age}.”.\n”;  
print“PersonB’sname:”.$personB->{name}.“age:”.$personB->{age}.”.\n”;  
 

但是，現(xiàn)在的這個(gè)方案有一個(gè)致命的缺點(diǎn)，Perl的編譯器并不知道如何new函數(shù)所返回的指向匿名哈希表的引用屬于哪個(gè)類（模塊）。這樣的話，如果要使用類中的實(shí)例方法，只能直接標(biāo)出方法所屬于的類（模塊）的名字，并將引用作為方法的***個(gè)參數(shù)傳遞給它，

基于匿名散列表的方法中的繼承：

Perl允許一個(gè)模塊在一個(gè)特殊的名為@ISA的數(shù)組中制定一組其他模塊的名稱。當(dāng)在模塊中找不到某個(gè)實(shí)例方法時(shí)，它就為檢查那個(gè)模塊的@ISA是否被初始化。如果已經(jīng)初始化了，它就為檢查其中的某個(gè)模塊是否支持這個(gè)“缺少”的函數(shù)。如果它按照深度優(yōu)先的層次結(jié)構(gòu)搜索@ISA數(shù)組并且發(fā)現(xiàn)同名的方法，它會(huì)調(diào)用***個(gè)被發(fā)現(xiàn)的同名方法并將控制權(quán)交給它。我們利用Perl語言的這個(gè)特性實(shí)現(xiàn)了繼承。

考慮這樣一個(gè)類的層次，我們定義一個(gè)Employee類，繼承于基類Person，如清單5所示。
我們將類名Person放入包Employee的ISA數(shù)組中，這樣當(dāng)調(diào)用一個(gè)在包Employee中沒有定義的函數(shù)時(shí)，Perl編譯器會(huì)自動(dòng)在Person類尋找這個(gè)函數(shù)。當(dāng)用戶調(diào)用new函數(shù)初始化一個(gè)Employee對(duì)象實(shí)例的時(shí)候，Employee的new函數(shù)會(huì)在內(nèi)部調(diào)用它的基類的new函數(shù)，并且返回一個(gè)包含部分以初始化的基類實(shí)例屬性的匿名哈希表。接著Employee的new函數(shù)將繼續(xù)執(zhí)行new函數(shù)的剩余代碼，完成屬于Employee自身的初始化工作，為Employee中剩余的實(shí)例屬性賦值。

基于數(shù)組的方法

基于匿名哈希表的面向?qū)ο缶幊谭椒ㄖ杏袃蓚€(gè)明顯的不足：一是無法為屬性提供一種訪問限制，限制外部對(duì)內(nèi)部屬性的訪問和改變。二是在處理大規(guī)模的實(shí)例的情況下，系統(tǒng)的內(nèi)存開銷頗大。100個(gè)實(shí)例意味著將創(chuàng)建100個(gè)散列表，這100個(gè)散列表都要為插入新紀(jì)錄的操作而分配額外的存儲(chǔ)空間。除了基于匿名散列表的實(shí)現(xiàn)，我們也可以利用數(shù)組來存儲(chǔ)屬性，實(shí)現(xiàn)面向?qū)ο蟮木幊獭?/p>

整個(gè)實(shí)現(xiàn)的數(shù)據(jù)結(jié)構(gòu)非常簡單，我們將為每一個(gè)類的實(shí)例屬性分配一個(gè)數(shù)組（見圖一，圖中的每一列對(duì)應(yīng)于類的一個(gè)實(shí)例屬性），而每一個(gè)新的實(shí)例將是跨越所有數(shù)組列的一個(gè)切片（圖中的每一個(gè)被使用的行對(duì)應(yīng)于類的一個(gè)實(shí)例）。每次需要實(shí)例化一個(gè)新的對(duì)象，new函數(shù)將被調(diào)用。一個(gè)新的邏輯行將被分配，新的實(shí)例的實(shí)例屬性將以新的行偏移量插入到相應(yīng)的屬性列當(dāng)中去。

基于數(shù)組的方法中的繼承

基于數(shù)組的方法中的繼承與基于匿名哈希表的方法中的繼承完全一樣。我們?cè)O(shè)計(jì)的InsideOut類中利用@ISA數(shù)組提供了對(duì)繼承的支持。

總結(jié)

相比于基于匿名哈希表的方法，基于數(shù)組的方法對(duì)存取屬性的訪問提供了更好的控制和保護(hù)并且實(shí)現(xiàn)了對(duì)于對(duì)象的封裝，同時(shí)也提高了存儲(chǔ)空間的利用效率。但是基于匿名哈希表的方法也有著簡單易學(xué)，邏輯上較為直觀而且無需要第三方模塊支持的優(yōu)點(diǎn)。具體使用哪種方式實(shí)現(xiàn)面向?qū)ο蟮脑O(shè)計(jì)，還要在工作中根據(jù)實(shí)際情況進(jìn)行考慮才對(duì)。
 

【編輯推薦】

1. Perl面向?qū)ο缶幊讨蟹椒ǖ恼{(diào)用
2. Perl foreach控制結(jié)構(gòu)中的控制變量
3. 深入剖析Perl面向?qū)ο缶幊?/a>
4. 揭秘Perl變量中Perl純變量用法
5. Perl面向?qū)ο缶幊痰膬煞N實(shí)現(xiàn)和比較