本文和大家重點討論一下Perl構(gòu)造函數(shù)和析構(gòu)函數(shù)的概念，Perl構(gòu)造函數(shù)是類的子程序，它返回與類名相關(guān)的一個引用，而對象的析構(gòu)發(fā)生在代碼停止后，腳本將要結(jié)束時。

一、Perl構(gòu)造函數(shù)

Perl構(gòu)造函數(shù)是類的子程序，它返回與類名相關(guān)的一個引用。將類名與引用相結(jié)合稱為“祝?！币粋€對象，因為建立該結(jié)合的函數(shù)名為bless()，其語法為：
blessYeReference[,classname]
YeReference是對被“祝福”的對象的引用，classname是可選項，指定對象獲取方法的包名，其缺省值為當(dāng)前包名。
創(chuàng)建一個構(gòu)建函數(shù)的方法為返回已與該類結(jié)合的內(nèi)部結(jié)構(gòu)的引用，如：

subnew{  
my$this={};#Createananonymoushash,and#selfpointstoit.  
bless$this;#ConnectthehashtothepackageCocoa.  
return$this;#Returnthereferencetothehash.  
}  
 
1; 

{}創(chuàng)建一個對不含鍵/值對的哈希表（即關(guān)聯(lián)數(shù)組）的引用，返回值被賦給局域變量$this。函數(shù)bless()取出該引用，告訴對象它引用的是Cocoa，最后返回該引用。函數(shù)的返回值現(xiàn)在指向這個匿名哈希表。
從new()函數(shù)返回后，$this引用被銷毀，但調(diào)用函數(shù)保存了對該哈希表的引用，因此該哈希表的引用數(shù)不會為零，從而使Perl在內(nèi)存中保存該哈希表。創(chuàng)建對象可如下調(diào)用：
$cup=newCocoa;

下面語句為使用該包創(chuàng)建對象的例子：

1#!/usr/bin/perl  
2push(@INC,'pwd');  
3useCocoa;  
4$cup=newCocoa;  

第一行指出Perl解釋器的位置，第二行中，將當(dāng)前目錄加到路徑尋找列表@INC中供尋找包時使用。你也可以在不同的目錄中創(chuàng)建你的模塊并指出該絕對路徑。例如，如果在/home/test/scripts/創(chuàng)建包，第二行就應(yīng)該如下：
push(@INC,"/home/test/scripts");
在第三行中，包含上包Cocoa.pm以獲取腳本中所需功能。use語句告訴Perl在@INC路徑尋找文件Cocoa.pm并包含到解析的源文件拷貝中。use語句是使用類必須的。第四行調(diào)用new函數(shù)創(chuàng)建對象，這是Perl的妙處，也是其易混淆之處，也是其強大之處。創(chuàng)建對象的方法有多種，可以這樣寫：
$cup=cocoa->new();
如果你是C程序員，可以用雙冒號強制使用Cocoa包中的new()函數(shù)，如：
$cup=Cocoa::new();

可以在Perl構(gòu)造函數(shù)中加入更多的代碼，如在Cocoa.pm中，可以在每個對象創(chuàng)建時輸出一個簡單聲明，還可以用Perl構(gòu)造函數(shù)初始化變量或設(shè)置數(shù)組或指針。
注意：
1、一定要在Perl構(gòu)造函數(shù)中初始化變量；
2、一定要用my函數(shù)在方法中創(chuàng)建變量；
3、一定不要在方法中使用local，除非真的想把變量傳遞給其它子程序；
4、一定不要在類模塊中使用全局變量。

二、Perl重載

有時需要指定使用哪個類的方法，如兩個不同的類有同名方法的時候。假設(shè)類Espresso和Qava都定義了方法grind，可以用::操作符指定使用Qava的方法：
$mess=Qava::grind("whole","lotta","bags");
Qava::grind($mess,"whole","lotta","bags");
可以根據(jù)程序的運行情況來選擇使用哪個類的方法，這可以通過使用符號引用去調(diào)用來實現(xiàn)：
$method=$local?"Qava::":"Espresso::";
$cup->{$method}grind(@args);

三、Perl析構(gòu)函數(shù)

Perl跟蹤對象的鏈接數(shù)目，當(dāng)某對象的最后一個應(yīng)用釋放到內(nèi)存池時，該對象就自動銷毀。對象的析構(gòu)發(fā)生在代碼停止后，腳本將要結(jié)束時。對于全局變量而言，析構(gòu)發(fā)生在最后一行代碼運行之后。
如果你想在對象被釋放之前獲取控制權(quán)，可以定義DESTROY()方法。DESTROY()在對象將釋放前被調(diào)用，使你可以做一些清理工作。DESTROY()函數(shù)不自動調(diào)用其它DESTROY()函數(shù)，Perl不做內(nèi)置的析構(gòu)工作。如果Perl構(gòu)造函數(shù)從基類多次bless，DESTROY()可能需要調(diào)用其它類的DESTROY()函數(shù)。當(dāng)一個對象被釋放時，其內(nèi)含的所有對象引用自動釋放、銷毀。
一般來說，不需要定義DESTROY()函數(shù)，如果需要，其形式如下：

subDESTROY{  
#  
#Addcodehere.  
#  
}  

因為多種目的，Perl使用了簡單的、基于引用的垃圾回收系統(tǒng)。任何對象的引用數(shù)目必須大于零，否則該對象的內(nèi)存就被釋放。當(dāng)程序退出時，Perl的一個徹底的查找并銷毀函數(shù)進(jìn)行垃圾回收，進(jìn)程中的一切被簡單地刪除。在UNIX類的系統(tǒng)中，這像是多余的，但在內(nèi)嵌式系統(tǒng)或多線程環(huán)境中這確實很必要。

【編輯推薦】

1. 構(gòu)造函數(shù)中Perl方法用法解析
2. Perl文件句柄概念詳解
3. Perl構(gòu)造函數(shù)用法解析
4. 淺析Perl面向?qū)ο缶幊逃梅?/a>
5. 解析Perl面向?qū)ο缶幊讨蠵erl構(gòu)造函數(shù)概念