Perl中的物件導向編程

標籤：

一、模組簡介

　　模組（module)就是Perl包（package）。Perl的對象基於對包中資料項目的引用。

　　在用其它語言進行物件導向編程時，先聲明一個類然後建立該類的對象（執行個體），特定類所有對象的行為方式是相同的，由類方法確定，可以通過定義新類或從現存類繼承來建立類。

• 類是一個Perl包，其中包含提供對象方法的類；
• 方法是一個Perl子程式，類名是其第一個參數；
• 對象是對類中資料項目的引用。

二、Perl中的類

　　一個Perl類是一個包。Perl5用雙冒號（::）來標識基本類和繼承類（之類）。

　　Perl中的繼承只繼承方法，必須使用自己的機制來實現資料的繼承。

　　因為每個類是一個包，所以它有自己的名字空間及自己的符號名關聯陣列（詳見第x章關聯陣列），每個類因而可以使用自己的獨立符號名集。與包的引用結合，可以用單引號(‘)操作符來定位類中的變數，類中成員的定位形式如：$class‘$member。在Perl5中，可用雙冒號替代單引號來獲得引用，如：$class‘$member與$class::$member相同。

三、建立類

　　package Cocoa;

　　#
　　# Put "require" statements in for all required,imported packages
　　#

　　#
　　# Just add code here
　　#

　　接下來，我們往包裡添加方法使之成為一個類。第一個需添加的方法是new()，它是建立對象時必須被調用的，new()方法是對象的建構函式。

四、建構函式

　　sub new {
  　　　　my $this = {}; # Create an anonymous hash, and #self points to it.
  　　　　bless $this; # Connect the hash to the package Cocoa.
 　　　　 return $this; # Return the reference to the hash.
　　}

 

　　1 #!/usr/bin/perl
　　2 push (@INC,‘pwd‘);
　　3 use Cocoa;
　　4 $cup = new Cocoa;

　　

　　ps,

　　1. 一定要在建構函式中初始設定變數；

　　2. 一定要用my函數在方法中建立變數；

　　3. 一定不要在方法中使用local，除非真的想吧變數傳遞給其他子程式；

　　4. 一定不要在類別模組中使用全域變數。

五、方法

　　Perl類的方法只不過是一個Perl子程式而已，也即通常所說的成員函數。Perl的方法定義不提供任何特殊文法，但規定方法的第一個參數為對象或者其被引用的包。Perl有兩種方法，靜態方法以及虛方法。

　　靜態方法的第一個參數為類名，虛方法的第一個參數為對象的引用。

六、方法的輸出

　　如果你現在想引用Cocoa.pm包，將會得到編譯錯誤說未找到方法，這是因為Cocoa.pm的方法還沒有輸出。輸出方法需要Exporter模組，在包的開始部分加上下列兩行：
    require Exporter;
    @ISA = qw (Exporter);
    這兩行包含上Exporter.pm模組，並把Exporter類名加入@ISA數組以供尋找。接下來把你自己的類方法列在@EXPORT數組中就可以了。例如想輸出方法closeMain和declareMain，語句如下：
    @EXPORT = qw (declareMain , closeMain);
    Perl類的繼承是通過@ISA數組實現的。@ISA數組不需要在任何包中定義，然而，一旦它被定義，Perl就把它看作目錄名的特殊數組。它與@INC數組類似，@INC是包含檔案的尋找路徑。@ISA數組含有類(包)名，當一個方法在當前包中未找到時就到@ISA中的包去尋找。@ISA中還含有當前類繼承的基類名。
    類中調用的所有方法必須屬於同一個類或@ISA數組定義的基類。如果一個方法在@ISA數組中未找到，Perl就到AUTOLOAD()子程式中尋找，這個可選的子程式在當前包中用sub定義。若使用AUTOLOAD子程式，必須用use Autoload;語句調用autoload.pm包。AUTOLOAD子程式嘗試從已安裝的Perl庫中裝載調用的方法。如果AUTOLOAD也失敗了，Perl再到UNIVERSAL類做最後一次嘗試，如果仍失敗，Perl就產生關於該無法解析函數的錯誤。

七、方法的調用

　　調用一個對象的方法有兩種，一是通過該對象的引用（虛方法），二是直接使用類名（靜態方法）。當然該方法必須已經被輸出。

package Cocoa;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(setImports, declareMain, closeMain);
#
# This routine creates the references for imports in Java functions
#
sub setImports{
  my $class = shift @_;
  my @names = @_;
  foreach (@names) {
    print "import " . $_ . ";\n";
  } 
}
#
# This routine declares the main function in a Java script
#
sub declareMain{
  my $class = shift @_;
  my ( $name, $extends, $implements) = @_;
  print "\n public class $name";
  if ($extends) {
    print " extends " . $extends;
  }
  if ($implements) {
    print " implements " . $implements;
  }
  print " { \n";
}
#
# This routine declares the main function in a Java script
#
sub closeMain{
  print "} \n";
}
#
# This subroutine creates the header for the file.
#
sub new {
  my $this = {};
  print "\n /* \n ** Created by Cocoa.pm \n ** Use at own risk \n */ \n";
  bless $this;
  return $this;
}

1;

    現在，我們寫一個簡單的Perl指令碼來使用該類的方法，下面是建立一個Java applet原始碼骨架的指令碼代碼：

#!/usr/bin/perl
use Cocoa;
$cup = new Cocoa;
$cup->setImports( ‘java.io.InputStream‘, ‘java.net.*‘);
$cup->declareMain( "Msg" , "java.applet.Applet", "Runnable");
$cup->closeMain();

八、重載

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

九、解構函式

　　Perl跟蹤對象的連結數目，當某對象的最後一個應用釋放到記憶體池的時候，該對象就自動銷毀。對象的西溝發生在代碼停止後，指令碼將要結束時。對於全域變數而言，析構發生在最後一行代碼運行之後。

　　如果你想在對象被釋放之前擷取控制權，可以定義DESTROY()方法。DESTROY()在對象將釋放前被調用，使你可以做一些清理工作。DESTROY()函數不自動調用其它DESTROY()函數，Perl不做內建的析構工作。如果建構函式從基類多次bless，DESTROY()可能需要調用其它類的DESTROY()函數。當一個對象被釋放時，其內含的所有對象引用自動釋放、銷毀。
    一般來說，不需要定義DESTROY()函數，如果需要，其形式如下：

sub DESTROY {
#
# Add code here.
#
}

　　因為多種目的，Perl使用了簡單的、基於引用的記憶體回收系統。任何對象的引用數目必須大於0，否則該對象的記憶體就會被釋放。當程式退出時，Perl的一個徹底的尋找並銷毀函數進行記憶體回收，進程中的一切被簡單地刪除。在UNIX類的系統中，這是多餘的，但在內嵌式系統或者多線程環境中這確實是必要的。

十、繼承

　　

十一、子類方法的繼承

十二、Perl類和對象的一些注釋

　　OOP的最大好處就是代碼重用。OOP用資料封裝來隱藏一些複雜的代碼，Perl的包和模組通過my函數提供資料封裝功能，但Perl並不保證之類一定不會直接存取基類的變數，這確實減少了資料封裝的好處，雖然這種動作是可以做到的，但卻是一個很壞的的編程風格。

　　1. 一定要通過方法來訪問類變數；　　

　　2. 一定不要從模組外直接存取類變數。

　　當編寫包時，應該保證方法所需的條件已具備或者通過參數傳遞給它。在包內部，應保證對全域變數的訪問只用通過方法傳遞的引用來訪問。對於方法要使用的靜態或者全域資料，應該在基類中使用local()定義，自雷通過調用基類來擷取。有時，子類可能需要改變這種資料，這時，基類可能就不知道怎樣去尋找新的資料，因此，這時最好定義對該資料的引用，子類和基類都通過引用來改變該資料。

Perl中的物件導向編程