Perl构造函数和析构函数的区别

Muqingluan 2010-07-20

本文和大家重点讨论一下Perl构造函数和析构函数的概念,Perl构造函数是类的子程序,它返回与类名相关的一个引用,而对象的析构发生在代码停止后,脚本将要结束时。

一、Perl构造函数

Perl构造函数是类的子程序,它返回与类名相关的一个引用。将类名与引用相结合称为“祝福”一个对象,因为建立该结合的函数名为bless(),其语法为:
blessYeReference[,classname]
YeReference是对被“祝福”的对象的引用,classname是可选项,指定对象获取方法的包名,其缺省值为当前包名。
创建一个构建函数的方法为返回已与该类结合的内部结构的引用,如:

subnew{  



my$this={};#Createananonymoushash,and#selfpointstoit.  



bless$this;#ConnectthehashtothepackageCocoa.  


return$this;#Returnthereferencetothehash.  


}  


 


1; 

{}创建一个对不含键/值对的哈希表(即关联数组)的引用,返回值被赋给局域变量$this。函数bless()取出该引用,告诉对象它引用的是Cocoa,最后返回该引用。函数的返回值现在指向这个匿名哈希表。
从new()函数返回后,$this引用被销毁,但调用函数保存了对该哈希表的引用,因此该哈希表的引用数不会为零,从而使Perl在内存中保存该哈希表。创建对象可如下调用:
$cup=newCocoa;

下面语句为使用该包创建对象的例子:

1#!/usr/bin/perl  


2push(@INC,'pwd');  


3useCocoa;  



4$cup=newCocoa;  

第一行指出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();

可以在Perl构造函数中加入更多的代码,如在Cocoa.pm中,可以在每个对象创建时输出一个简单声明,还可以用Perl构造函数初始化变量或设置数组或指针。
注意:
1、一定要在Perl构造函数中初始化变量;
2、一定要用my函数在方法中创建变量;
3、一定不要在方法中使用local,除非真的想把变量传递给其它子程序;
4、一定不要在类模块中使用全局变量。

二、Perl重载

有时需要指定使用哪个类的方法,如两个不同的类有同名方法的时候。假设类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析构函数

Perl跟踪对象的链接数目,当某对象的最后一个应用释放到内存池时,该对象就自动销毁。对象的析构发生在代码停止后,脚本将要结束时。对于全局变量而言,析构发生在最后一行代码运行之后。
如果你想在对象被释放之前获取控制权,可以定义DESTROY()方法。DESTROY()在对象将释放前被调用,使你可以做一些清理工作。DESTROY()函数不自动调用其它DESTROY()函数,Perl不做内置的析构工作。如果Perl构造函数从基类多次bless,DESTROY()可能需要调用其它类的DESTROY()函数。当一个对象被释放时,其内含的所有对象引用自动释放、销毁。
一般来说,不需要定义DESTROY()函数,如果需要,其形式如下:

相关推荐