?? perl13.htm
字號:
<ul>
<li><a name="4.1">實例變量</a></li>
</ul>
<br>
<br>
作為構(gòu)造函數(shù)的new()函數(shù)的參數(shù)叫做實例變量。實例變量在創(chuàng)建對象的每個實例時用于初始化，例如可以用new()函數(shù)為對象的每個實例起個名字。<br>
可以用匿名哈希表或匿名數(shù)組來保存實例變量。<br>
用哈希表的代碼如下：<br>
<blockquote>sub new {
<blockquote>my $type = shift;<br>
my %parm = @_;<br>
my $this = {};<br>
$this->{'Name'} = $parm{'Name'};<br>
$this->{'x'} = $parm{'x'};<br>
$this->{'y'} = $parm{'y'};<br>
bless $this, $type;</blockquote>
}</blockquote>
用數(shù)組保存的代碼如下：<br>
<blockquote>sub new {
<blockquote>my $type = shift;<br>
my %parm = @_;<br>
my $this = [];<br>
$this->[0] = $parm{'Name'};<br>
$this->[1] = $parm{'x'};<br>
$this->[2] = $parm{'y'};<br>
bless $this, $type;</blockquote>
}</blockquote>
構(gòu)造對象時，可以如下傳遞參數(shù)：<br>
$mug = Cocoa::new( 'Name' => 'top','x' =>
10,'y' => 20 );<br>
操作符=>與逗號操作服功能相同，但=>可讀性好。訪問方法如下：<br>
print "Name=$mug->{'Name'}\n";<br>
print "x=$mug->{'x'}\n";<br>
print "y=$mug->{'y'}\n";<br>
<a name=5>五、方法</a><br>
Perl類的方法只不過是一個Perl子程序而已，也即通常所說的成員函數(shù)。Perl的方法定義不提供任何特殊語法，但規(guī)定方法的第一個參數(shù)為對象或其被引用的包。Perl有兩種方法：靜態(tài)方法和虛方法。<br>
靜態(tài)方法第一個參數(shù)為類名，虛方法第一個參數(shù)為對象的引用。方法處理第一個參數(shù)的方式?jīng)Q定了它是靜態(tài)的還是虛的。靜態(tài)方法一般忽略掉第一個參數(shù)，因為它們已經(jīng)知道自己在哪個類了，構(gòu)造函數(shù)即靜態(tài)方法。虛方法通常首先把第一個參數(shù)shift到變量self或this中，然后將該值作普通的引用使用。如：<br>
<blockquote>1. sub nameLister {<br>
2. my $this = shift;<br>
3. my ($keys ,$value );<br>
4. while (($key, $value) = each (%$this)) {<br>
5. print "\t$key is $value.\n";<br>
6. }<br>
7. }</blockquote>
六、方法的輸出<br>
如果你現(xiàn)在想引用Cocoa.pm包，將會得到編譯錯誤說未找到方法，這是因為Cocoa.pm的方法還沒有輸出。輸出方法需要Exporter模塊，在包的開始部分加上下列兩行：<br>
require Exporter;<br>
@ISA = qw (Exporter);<br>
這兩行包含上Exporter.pm模塊，并把Exporter類名加入@ISA數(shù)組以供查找。接下來把你自己的類方法列在@EXPORT數(shù)組中就可以了。例如想輸出方法closeMain和declareMain，語句如下：<br>
@EXPORT = qw (declareMain , closeMain);<br>
Perl類的繼承是通過@ISA數(shù)組實現(xiàn)的。@ISA數(shù)組不需要在任何包中定義，然而，一旦它被定義，Perl就把它看作目錄名的特殊數(shù)組。它與@INC數(shù)組類似，@INC是包含文件的尋找路徑。@ISA數(shù)組含有類(包)名，當(dāng)一個方法在當(dāng)前包中未找到時就到@ISA中的包去尋找。@ISA中還含有當(dāng)前類繼承的基類名。<br>
類中調(diào)用的所有方法必須屬于同一個類或@ISA數(shù)組定義的基類。如果一個方法在@ISA數(shù)組中未找到，Perl就到AUTOLOAD()子程序中尋找，這個可選的子程序在當(dāng)前包中用sub定義。若使用AUTOLOAD子程序，必須用use
Autoload;語句調(diào)用autoload.pm包。AUTOLOAD子程序嘗試從已安裝的Perl庫中裝載調(diào)用的方法。如果AUTOLOAD也失敗了，Perl再到UNIVERSAL類做最后一次嘗試，如果仍失敗，Perl就生成關(guān)于該無法解析函數(shù)的錯誤。<br>
七、方法的調(diào)用<br>
調(diào)用一個對象的方法有兩種方法，一是通過該對象的引用（虛方法），一是直接使用類名（靜態(tài)方法）。當(dāng)然該方法必須已被輸出。現(xiàn)在給Cocoa類增加一些方法，代碼如下：
<blockquote>package Cocoa;<br>
require Exporter;<br>
@ISA = qw(Exporter);<br>
@EXPORT = qw(setImports, declareMain, closeMain);<br>
#<br>
# This routine creates the references for imports in Java functions<br>
#<br>
sub setImports{<br>
my $class = shift @_;<br>
my @names = @_;<br>
foreach (@names) {<br>
print "import " . $_ . ";\n";<br>
}<br>
}<br>
#<br>
# This routine declares the main function in a Java script<br>
#<br>
sub declareMain{<br>
my $class = shift @_;<br>
my ( $name, $extends, $implements) = @_;<br>
print "\n public class $name";<br>
if ($extends) {<br>
print " extends " . $extends;<br>
}<br>
if ($implements) {<br>
print " implements " . $implements;<br>
}<br>
print " { \n";<br>
}<br>
#<br>
# This routine declares the main function in a Java script<br>
#<br>
sub closeMain{<br>
print "} \n";<br>
}<br>
#<br>
# This subroutine creates the header for the file.<br>
#<br>
sub new {<br>
my $this = {};<br>
print "\n /* \n ** Created by Cocoa.pm \n ** Use at own risk
\n */ \n";<br>
bless $this;<br>
return $this;<br>
}<br>
<br>
1;</blockquote>
現(xiàn)在，我們寫一個簡單的Perl腳本來使用該類的方法，下面是創(chuàng)建一個Java applet源代碼骨架的腳本代碼：
<blockquote>#!/usr/bin/perl<br>
use Cocoa;<br>
$cup = new Cocoa;<br>
$cup->setImports( 'java.io.InputStream', 'java.net.*');<br>
$cup->declareMain( "Msg" , "java.applet.Applet", "Runnable");<br>
$cup->closeMain();<br>
</blockquote>
這段腳本創(chuàng)建了一個叫做Msg的Java applet，它擴展(extend)了java.applet.Applet小應(yīng)用程序并使之可運行(runnable)，其中最后三行也可以寫成如下：
<blockquote>Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');<br>
Cocoa::declareMain($cup, "Msg" , "java.applet.Applet", "Runnable");<br>
Cocoa::closeMain($cup);</blockquote>
其運行結(jié)果如下：
<blockquote>/*<br>
** Created by Cocoa.pm<br>
** Use at own risk<br>
*/<br>
import java.io.InputStream;<br>
import java.net.*;<br>
<br>
public class Msg extends java.applet.Applet implements Runnable
{<br>
}</blockquote>
注意：如果用->操作符調(diào)用方法（也叫間接調(diào)用），參數(shù)必須用括號括起來，如：$cup->setImports(
'java.io.InputStream', 'java.net.*');而雙冒號調(diào)用如：Cocoa::setImports($cup,
'java.io.InputStream', 'java.net.*');也可去掉括號寫成：Cocoa::setImports $cup,
'java.io.InputStream', 'java.net.*' ;<br>
<a name=8>八、重載</a><br>
有時需要指定使用哪個類的方法，如兩個不同的類有同名方法的時候。假設(shè)類Espresso和Qava都定義了方法grind，可以用::操作符指定使用Qava的方法：<br>
$mess = Qava::grind("whole","lotta","bags");<br>
Qava::grind($mess, "whole","lotta","bags");<br>
可以根據(jù)程序的運行情況來選擇使用哪個類的方法，這可以通過使用符號引用去調(diào)用來實現(xiàn)：<br>
$method = $local ? "Qava::" : "Espresso::";<br>
$cup->{$method}grind(@args);<br>
<a name=9>九、析構(gòu)函數(shù)</a><br>
Perl跟蹤對象的鏈接數(shù)目，當(dāng)某對象的最后一個應(yīng)用釋放到內(nèi)存池時，該對象就自動銷毀。對象的析構(gòu)發(fā)生在代碼停止后，腳本將要結(jié)束時。對于全局變量而言，析構(gòu)發(fā)生在最后一行代碼運行之后。<br>
如果你想在對象被釋放之前獲取控制權(quán)，可以定義DESTROY()方法。DESTROY()在對象將釋放前被調(diào)用，使你可以做一些清理工作。DESTROY()函數(shù)不自動調(diào)用其它DESTROY()函數(shù)，Perl不做內(nèi)置的析構(gòu)工作。如果構(gòu)造函數(shù)從基類多次bless，DESTROY()可能需要調(diào)用其它類的DESTROY()函數(shù)。當(dāng)一個對象被釋放時，其內(nèi)含的所有對象引用自動釋放、銷毀。<br>
一般來說，不需要定義DESTROY()函數(shù)，如果需要，其形式如下：<br>
<blockquote>sub DESTROY {<br>
#<br>
# Add code here.<br>
#<br>
}</blockquote>
因為多種目的，Perl使用了簡單的、基于引用的垃圾回收系統(tǒng)。任何對象的引用數(shù)目必須大于零，否則該對象的內(nèi)存就被釋放。當(dāng)程序退出時，Perl的一個徹底的查找并銷毀函數(shù)進(jìn)行垃圾回收，進(jìn)程中的一切被簡單地刪除。在UNIX類的系統(tǒng)中，這像是多余的，但在內(nèi)嵌式系統(tǒng)或多線程環(huán)境中這確實很必要。<br>
<a name=10>十、繼承</a><br>
類方法通過@ISA數(shù)組繼承，變量的繼承必須明確設(shè)定。下例創(chuàng)建兩個類Bean.pm和Coffee.pm，其中Coffee.pm繼承Bean.pm的一些功能。此例演示如何從基類（或稱超類）繼承實例變量，其方法為調(diào)用基類的構(gòu)造函數(shù)并把自己的實例變量加到新對象中。<br>
Bean.pm代碼如下：<br>
<blockquote>package Bean;<br>
require Exporter;<br>
@ISA = qw(Exporter);<br>
@EXPORT = qw(setBeanType);<br>
<br>
sub new {<br>
my $type = shift;<br>
my $this = {};<br>
$this->{'Bean'} = 'Colombian';<br>
bless $this, $type;<br>
return $this;<br>
}<br>
<br>
#<br>
# This subroutine sets the class name<br>
sub setBeanType{<br>
my ($class, $name) = @_;<br>
$class->{'Bean'} = $name;<br>
print "Set bean to $name \n";<br>
}<br>
1;</blockquote>
此類中，用$this變量設(shè)置一個匿名哈希表，將'Bean'類型設(shè)為'Colombian'。方法setBeanType()用于改變'Bean'類型，它使用$class引用獲得對對象哈希表的訪問。<br>
Coffee.pm代碼如下：<br>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -