Perl: Bless略解 z

下面语句为使用该包创建对象的例子： 1 #!/usr/bin/perl 2 push (@INC,'pwd'); #Dos下为 cd 命令 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 "/n /* /n ** Created by Cocoa.pm /n ** Use at own risk";     print "/n ** Did this code even get pass the javac compiler? ";     print "/n **/ /n";     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 本人最喜欢的类似于JAVA的实例化方法: 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; } 构造对象时，可以如下传递参数： my $mug = Cocoa::new( 'Cocoa','Name' => 'top','x' => 10,'y' => 20 ); 本人喜欢的实例话方式为 : my $mug = new Cocoa ('Name' => 'top','x' => 10,'y' => 20); 操作符=>与逗号操作服功能相同，但=>可读性好。访问方法如下： print "Name=$mug->{'Name'}/n"; print "x=$mug->{'x'}/n"; print "y=$mug->{'y'}/n";

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>