日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
Perl構(gòu)造函數(shù)和析構(gòu)函數(shù)的區(qū)別

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

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

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

 
 
 
      
  
  
  1. subnew{  
    2.   
  
  
  2. my$this={};#Createananonymoushash,and#selfpointstoit.  
    3.   
  
  
  3. bless$this;#ConnectthehashtothepackageCocoa.  
    4.   
  
  
  4. return$this;#Returnthereferencetothehash.  
    5.   
  
  
  5. }  
    6.   
  
  
  6.  
    7.   
  
  
  7. 1; 
    8.

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

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

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

第一行指出Perl解釋器的位置，第二行中，將當(dāng)前目錄加到路徑尋找列表@INC中供尋找包時(shí)使用。你也可以在不同的目錄中創(chuàng)建你的模塊并指出該絕對(duì)路徑。例如，如果在/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)建對(duì)象，這是Perl的妙處，也是其易混淆之處，也是其強(qiáng)大之處。創(chuàng)建對(duì)象的方法有多種，可以這樣寫：
$cup=cocoa->new();
如果你是C程序員，可以用雙冒號(hào)強(qiáng)制使用Cocoa包中的new()函數(shù)，如：
$cup=Cocoa::new();

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

二、Perl重載

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

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

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

 
 
 
      
  
  
  1. subDESTROY{  
    2.   
  
  
  2. #  
    3.   
  
  
  3. #Addcodehere.  
    4.   
  
  
  4. #  
    5.   
  
  
  5. }  
    6.

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

【編輯推薦】

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

分享題目：Perl構(gòu)造函數(shù)和析構(gòu)函數(shù)的區(qū)別
分享路徑：http://m.5511xx.com/article/ccshhii.html