top
Loading...
Perl的面向對象編程(二)
四、構造函數
  構造函數是類的子程序,它返回與類名相關的一個引用。將類名與引用相結合稱為“祝福”一個對象,因為建立該結合的函數名為bless(),其語法為:
  bless YeReference [,classname]
  YeReference是對被“祝福”的對象的引用,classname是可選項,指定對象獲取方法的包名,其缺省值為當前包名。
  創建一個構建函數的方法為返回已與該類結合的內部結構的引用,如:


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;

  {}創建一個對不含鍵/值對的哈希表(即關聯數組)的引用,返回值被賦給局域變量$this。函數bless()取出該引用,告訴對象它引用的是Cocoa,最后返回該引用。函數的返回值現在指向這個匿名哈希表。
  從new()函數返回后,$this引用被銷毀,但調用函數保存了對該哈希表的引用,因此該哈希表的引用數不會為零,從而使Perl在內存中保存該哈希表。創建對象可如下調用:
  $cup = new Cocoa;
  下面語句為使用該包創建對象的例子:


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

  第一行指出Perl解釋器的位置,第二行中,將當前目錄加到路徑尋找列表@INC中供尋找包時使用。你也可以在不同的目錄中創建你的模塊并指出該絕對路徑。例如,如果在/home/test/scripts/創建包,第二行就應該如下:
  push (@INC , "/home/test/scripts");
  在第三行中,包含上包Cocoa.pm以獲取腳本中所需功能。use語句告訴Perl在@INC路徑尋找文件Cocoa.pm并包含到解析的源文件拷貝中。use語句是使用類必須的。第四行調用new函數創建對象,這是Perl的妙處,也是其易混淆之處,也是其強大之處。創建對象的方法有多種,可以這樣寫:
  $cup = cocoa->new();
  如果你是C程序員,可以用雙冒號強制使用Cocoa包中的new()函數,如:
  $cup = Cocoa::new();
  可以在構造函數中加入更多的代碼,如在Cocoa.pm中,可以在每個對象創建時輸出一個簡單聲明,還可以用構造函數初始化變量或設置數組或指針。
注意:

1、一定要在構造函數中初始化變量;
2、一定要用my函數在方法中創建變量;
3、一定不要在方法中使用local,除非真的想把變量傳遞給其它子程序;
4、一定不要在類模塊中使用全局變量。

  加上聲明的Cocoa構造函數如下:


sub new {
my $this = {};
print "
/*
** Created by Cocoa.pm
** Use at own risk";
print "
** Did this code even get pass the javac compiler? ";
print "
**/
";
bless $this;
return $this;
}

  也可以簡單地調用包內或包外的其它函數來做更多的初始化工作,如:


sub new {
my $this = {}
bless $this;
$this->doInitialization();
return $this;
}

  創建類時,應該允許它可被繼承,應該可以把類名作為第一個參數來調用new函數,那么new函數就象下面的語句:


sub new {
my $class = shift; # Get the request class name
my $this = {};
bless $this, $class # Use class name to bless() reference
$this->doInitialization(); return $this;
}

  此方法使用戶可以下列三種方式之一來進行調用:


Cocoa::new()
Cocoa->new()
new Cocoa
  可以多次bless一個引用對象,然而,新的將被bless的類必然把對象已被bless的引用去掉,對C和Pascal程序員來說,這就象把一個指針賦給分配的一塊內存,再把同一指針賦給另一塊內存而不釋放掉前一塊內存。總之,一個Perl對象每一時刻只能屬于一個類。
  對象和引用的真正區別是什么呢?Perl對象被bless以屬于某類,引用則不然,如果引用被bless,它將屬于一個類,也便成了對象。對象知道自己屬于哪個類,引用則不屬于任何類。

實例變量

  作為構造函數的new()函數的參數叫做實例變量。實例變量在創建對象的每個實例時用于初始化,例如可以用new()函數為對象的每個實例起個名字。
  可以用匿名哈希表或匿名數組來保存實例變量。
  用哈希表的代碼如下:


sub new {

my $type = shift;
my %parm = @_;
my $this = {};
$this->{"Name"} = $parm{"Name"};
$this->{"x"} = $parm{"x"};
$this->{"y"} = $parm{"y"};
bless $this, $type;

}

  用數組保存的代碼如下:


sub new {

my $type = shift;
my %parm = @_;
my $this = [];
$this->[0] = $parm{"Name"};
$this->[1] = $parm{"x"};
$this->[2] = $parm{"y"};
bless $this, $type;

}

  構造對象時,可以如下傳遞參數:
  $mug = Cocoa::new( "Name" => "top","x" => 10,"y" => 20 );
  操作符=>與逗號操作服功能相同,但=>可讀性好。訪問方法如下:
  print "Name=$mug->{"Name"}
";
  print "x=$mug->{"x"}
";
  print "y=$mug->{"y"}
";
北斗有巢氏 有巢氏北斗