在學習了Perl的基本語法之后，學習Perl的OOP，略有心得。不知道Perl各個版本之間OOP是否有區別，但是我是學習的Perl5，所以在標題上將版本號也寫出來了。因為了解到PHP4和PHP5的OOP部分就有不小的差別，所以有此擔心。
學習Perl的OOP，最關鍵的兩件事情就是package和bless。只要把這兩個東西搞清楚也就學會大一半了。
Perl的package
感覺Perl的package和Java還真有點相似。Java的package是以CLASSPATH中的目錄為根，按目錄定義和搜索分級包名。Perl也類似，是以@INC數組中的目錄為根，按目錄搜索分級包名。不過有一點不同，Perl的package定義貌似不需要與目錄結構對應。具體是什么樣的規則我沒有去研究，因為按目錄結構定義package是個好習慣。
相較于Java，Perl的package還有一點很有意思。Java的每層package對應一個目錄，而最后是一個class文件對應到類名。Perl卻簡化了，package直接就把目錄和文件名都引用了進去。比如
Java中，name.jamesfancy.MyClass，對應的是/name/jamesfancy/MyClass.class，源代碼中則分成兩句來寫
復制代碼 代碼如下:
package name.jamesfancy;
class MyClass {....}
package name.jamesfancy;
class MyClass {....}
Perl中，name::jamesfancy::MyClass，應對的是/name/jamesfancy/MyClass.pm，源代碼中只有一句package就說明了
復制代碼 代碼如下:
package name::jamesfancy::MyClass;
package name::jamesfancy::MyClass;
至于package中的內容，也就是變量和子程序，至于區別，稍后再說。
bless函數
bless是用來把一個類綁定到引用類型變量的函數。很奇怪Perl為什么要用這個單詞，不過沒關系，我們可以把它想像得形象一點：就像游戲里牧師通過祝福技能為某人加上BUFF一樣，bless把一個類綁定到某個引用類型的變量，從此這個變量就受到了祝福，擁有了這個類中的變量和子程序。
bless的用法通常是：bless($引用變量, 類名);
引用變量貌似可以是任何引用類型的變量，我嘗試過Scalar，Array和Hash的引用，都能成功。在bless之外，這個引用變量就可以被稱之為對象了，當然它仍然是個引用，是對象的引用。
有一點還需要注意，雖然這個對象擁有了類的變量和子程序，但我們應該把它擁有的類的變量和子程序都看成是靜態的，換句話說，就是類的成員。在這一點上，子程序的處理會比較特殊一點，但至少類的變量，也就是包變量，是不屬于對象的。因此，所有對象的數據都保存在對象引用的原始數據中。既然大家都習慣對象數據以鍵值對的方式保存，所以通常情況下，bless的引用變量，都是Hash的引用了。
很抽象么？舉個例子。如果對OOP的成員函數還不夠了解，那就只看下面示例中每個類的test函數中第一句以后的內容不好。
復制代碼 代碼如下:
# test.pl
package TestScalar;
sub test {
my $this = shift();
print("/nIn TestScalar::test()/n");
print("Scalar:/n ${$this}/n");
}
package TestArray;
sub test {
my $this = shift();
print("/nIn TestArray::test()/n");
print("Array:/n");
foreach my $item (@{$this}) {
print(" $item/n");
}
}
package TestHash;
sub test {
my $this = shift();
print("/nIn TestHash::test()/n");
print("Hash:/n");
while (my ($key, $value) = each %{$this}) {
printf(" %-4s = %s/n", $key, $value);
}
}
package main;
my $name = "James Fancy";
my $objScalar = /$name;
my $objArray = ['James', 'Fancy', 'Jenny'];
my $objHash = {'name' => 'James', 'age' => 30};
bless($objScalar, 'TestScalar');
bless($objArray, 'TestArray');
bless($objHash, 'TestHash');
$objScalar->test();
$objArray->test();
$objHash->test();
__END__
In TestScalar::test()
Scalar:
James Fancy
In TestArray::test()
Array:
James
Fancy
Jenny
In TestHash::test()
Hash:
name = James
age = 30
從上面的示例中可以看到，分別將3種類型的引用轉變為對象。之所以要把類寫成3個而非1個，主要是為了在Test里輸出不同類型的數據。類和對象的成員函數
成員函數就是在package中定義的子程序。成員函數是沒有靜態和非靜態之分的，但我寧愿大家都把它看作是靜態函數，因為雖然它即可以當作類成員函數來調用，也可以當用對象成員函數來調用，但在當作對象成員函數來調用的時候，Perl偷偷的傳入了對象引用。這也解釋了為什么通常成員函數里的第一句話往往是
復制代碼 代碼如下:
my $this = shift();
當然，這里的$this只是一個局部變量，而不是關鍵字，你也可以用別的名稱來代替它。比如很多人就喜歡用$self，或者$me等。
假如，對于一個成員函數，分別用類和對象來對它進行調用，會有什么不一樣呢？再看一個示例：
復制代碼 代碼如下:
# test.pl
package MyClass;
sub test {
my ($this, @args) = @_;
print('-' x 40, "/n");
print("/$this is [$this], Ref of /$this is [", ref($this), "]/n");
print("Args: [@args]/n");
}
package main;
$obj = {};
bless($obj, 'MyClass');
MyClass->test("MyClass->test(...)");
$obj->test("/$obj->test(...)");
__END__
----------------------------------------
$this is [MyClass], Ref of $this is []
Args: [MyClass->test(...)]
----------------------------------------
$this is [MyClass=HASH(0x178a44)], Ref of $this is [MyClass]
Args: [$obj->test(...)]
從結果可以看出來，不管哪種方法調用，第一個參數都是Perl偷偷傳遞進去的。如果是類調用，則第一個參數是該類。如果是對象調用，第一個參數是該對象。因此，只需要將ref($this)的結果和類名進行比較就清楚是哪種調用了。所以，一個容錯性較好的成員函數，一開始要判斷傳入的第一個參數，比如
復制代碼 代碼如下:
sub foo {
my $this = shift();
return unless ($this ne 'MyClass');
# 其它語句
}
這里還有一個疑問：既然package中定義的子程序都是成員函數，那不是類的package和是類的package有啥區別？它們在結構上沒有一點區別，唯一的區別在處理中。在調用子程序的時候，Perl不會硬塞一個類或者對象在參數列表的最前面，但調用成員函數的時候會，所以區別是根據你的調用方式來區分的。
調用對象成員還好說，$obj->foo()就好，但是調用類成員的時候，怎么知道是調用的類成員還是包中的子程序呢？那就要看是通過“->”還是“::”來調用的了。下面的例子可以幫助理解：
復制代碼 代碼如下:
# test.pl
package MyClass;
use Data::Dumper;
sub test {
print('-' x 40, "/n");
print(Dumper(@_));
}
package main;
MyClass->test("MyClass->test(...)");
MyClass::test("MyClass::test(...)");
__END__
----------------------------------------
$VAR1 = 'MyClass';
$VAR2 = 'MyClass->test(...)';
----------------------------------------
$VAR1 = 'MyClass::test(...)';
很明顯，通過“::”調用的子程序沒有被Perl塞入一個引用類的參數。
構造函數
Perl的OOP沒有指定專門的構造函數，所以你可以把任何一個子程序當作構造函數，當然，重要的是其中的內容。既然腳本通常不是寫給自己一個人看的，所以還是按照大家的習慣，把構造函數取名為new吧。按照多數OOP語言的習慣，new函數通常返回一個對象或其引用、指針。所以在Perl中，這個new函數要返回一個對象引用，理所當然地，把bless動作包含在new函數中是個好習慣。那么一個簡單的new函數看起來就像這樣：
復制代碼 代碼如下:
sub new {
my $this = {};
bless($this);
}
這個new函數中產生了一個Hash引用，bless它，并返回它。如果你疑惑為什么這里沒有看到return語句，那么建議你去看看關于子程序中返回值的資料，順便查一下bless函數的說明。來看看完整的程序了解一下是怎么使用new函數的。
12下一頁閱讀全文
