建站
咨詢
售后
建站咨詢
新聞中心
本文和大家重點討論一下Perl構造函數(shù)和析構函數(shù)的概念，Perl構造函數(shù)是類的子程序，它返回與類名相關的一個引用，而對象的析構發(fā)生在代碼停止后，腳本將要結束時。
一、Perl構造函數(shù)
Perl構造函數(shù)是類的子程序，它返回與類名相關的一個引用。將類名與引用相結合稱為“祝?！币粋€對象，因為建立該結合的函數(shù)名為bless()，其語法為：
blessYeReference[,classname]
YeReference是對被“祝福”的對象的引用，classname是可選項，指定對象獲取方法的包名，其缺省值為當前包名。
創(chuàng)建一個構建函數(shù)的方法為返回已與該類結合的內部結構的引用，如：
- subnew{
- my$this={};#Createananonymoushash,and#selfpointstoit.
- bless$this;#ConnectthehashtothepackageCocoa.
- return$this;#Returnthereferencetothehash.
- }
- 1;
{}創(chuàng)建一個對不含鍵/值對的哈希表（即關聯(lián)數(shù)組）的引用，返回值被賦給局域變量$this。函數(shù)bless()取出該引用，告訴對象它引用的是Cocoa，最后返回該引用。函數(shù)的返回值現(xiàn)在指向這個匿名哈希表。
從new()函數(shù)返回后，$this引用被銷毀，但調用函數(shù)保存了對該哈希表的引用，因此該哈希表的引用數(shù)不會為零，從而使Perl在內存中保存該哈希表。創(chuàng)建對象可如下調用：
$cup=newCocoa;
下面語句為使用該包創(chuàng)建對象的例子：
- 1#!/usr/bin/perl
- 2push(@INC,'pwd');
- 3useCocoa;
- 4$cup=newCocoa;
第一行指出Perl解釋器的位置，第二行中，將當前目錄加到路徑尋找列表@INC中供尋找包時使用。你也可以在不同的目錄中創(chuàng)建你的模塊并指出該絕對路徑。例如，如果在/home/test/scripts/創(chuàng)建包，第二行就應該如下：
push(@INC,"/home/test/scripts");
在第三行中，包含上包Cocoa.pm以獲取腳本中所需功能。use語句告訴Perl在@INC路徑尋找文件Cocoa.pm并包含到解析的源文件拷貝中。use語句是使用類必須的。第四行調用new函數(shù)創(chuàng)建對象，這是Perl的妙處，也是其易混淆之處，也是其強大之處。創(chuàng)建對象的方法有多種，可以這樣寫：
$cup=cocoa->new();
如果你是C程序員，可以用雙冒號強制使用Cocoa包中的new()函數(shù)，如：
$cup=Cocoa::new();
可以在Perl構造函數(shù)中加入更多的代碼，如在Cocoa.pm中，可以在每個對象創(chuàng)建時輸出一個簡單聲明，還可以用Perl構造函數(shù)初始化變量或設置數(shù)組或指針。
注意：
1、一定要在Perl構造函數(shù)中初始化變量；
2、一定要用my函數(shù)在方法中創(chuàng)建變量；
3、一定不要在方法中使用local，除非真的想把變量傳遞給其它子程序；
4、一定不要在類模塊中使用全局變量。
二、Perl重載
有時需要指定使用哪個類的方法，如兩個不同的類有同名方法的時候。假設類Espresso和Qava都定義了方法grind，可以用::操作符指定使用Qava的方法：
$mess=Qava::grind("whole","lotta","bags");
Qava::grind($mess,"whole","lotta","bags");
可以根據(jù)程序的運行情況來選擇使用哪個類的方法，這可以通過使用符號引用去調用來實現(xiàn)：
$method=$local?"Qava::":"Espresso::";
$cup->{$method}grind(@args);
三、Perl析構函數(shù)
Perl跟蹤對象的鏈接數(shù)目，當某對象的最后一個應用釋放到內存池時，該對象就自動銷毀。對象的析構發(fā)生在代碼停止后，腳本將要結束時。對于全局變量而言，析構發(fā)生在最后一行代碼運行之后。
如果你想在對象被釋放之前獲取控制權，可以定義DESTROY()方法。DESTROY()在對象將釋放前被調用，使你可以做一些清理工作。DESTROY()函數(shù)不自動調用其它DESTROY()函數(shù)，Perl不做內置的析構工作。如果Perl構造函數(shù)從基類多次bless，DESTROY()可能需要調用其它類的DESTROY()函數(shù)。當一個對象被釋放時，其內含的所有對象引用自動釋放、銷毀。
一般來說，不需要定義DESTROY()函數(shù)，如果需要，其形式如下：
- subDESTROY{
- #
- #Addcodehere.
- #
- }
因為多種目的，Perl使用了簡單的、基于引用的垃圾回收系統(tǒng)。任何對象的引用數(shù)目必須大于零，否則該對象的內存就被釋放。當程序退出時，Perl的一個徹底的查找并銷毀函數(shù)進行垃圾回收，進程中的一切被簡單地刪除。在UNIX類的系統(tǒng)中，這像是多余的，但在內嵌式系統(tǒng)或多線程環(huán)境中這確實很必要。
【編輯推薦】
- 構造函數(shù)中Perl方法用法解析
- Perl文件句柄概念詳解
- Perl構造函數(shù)用法解析
- 淺析Perl面向對象編程用法
- 解析Perl面向對象編程中Perl構造函數(shù)概念
網站名稱：Perl構造函數(shù)和析構函數(shù)的區(qū)別
文章分享：http://www.dlmjj.cn/article/ccshhii.html
