术语汇编 Perl析构函数简介
cnjsnts 2010-07-16
本文和大家重点讨论一下Perl析构函数，Perl跟踪对象的链接数目，当某对象的最后一个应用释放到内存池时，该对象就自动销毁。对象的析构发生在代码停止后，脚本将要结束时。
Perl析构函数
一、Perl析构函数简介
Perl跟踪对象的链接数目，当某对象的最后一个应用释放到内存池时，该对象就自动销毁。对象的析构发生在代码停止后，脚本将要结束时。对于全局变量而言，析构发生在最后一行代码运行之后。
如果你想在对象被释放之前获取控制权，可以定义DESTROY()方法。DESTROY()在对象将释放前被调用，使你可以做一些清理工作。DESTROY()函数不自动调用其它DESTROY()函数，Perl不做内置的析构工作。如果构造函数从基类多次bless，DESTROY()可能需要调用其它类的DESTROY()函数。当一个对象被释放时，其内含的所有对象引用自动释放、销毁。
一般来说，不需要定义DESTROY()函数，如果需要，其形式如下：
subDESTROY{
#
#Addcodehere.
#
} 因为多种目的，Perl使用了简单的、基于引用的垃圾回收系统。任何对象的引用数目必须大于零，否则该对象的内存就被释放。当程序退出时，Perl的一个彻底的查找并销毁函数进行垃圾回收，进程中的一切被简单地删除。在UNIX类的系统中，这像是多余的，但在内嵌式系统或多线程环境中这确实很必要。
二、Perl析构函数之继承
类方法通过@ISA数组继承，变量的继承必须明确设定。下例创建两个类Bean.pm和Coffee.pm，其中Coffee.pm继承Bean.pm的一些功能。此例演示如何从基类（或称超类）继承实例变量，其方法为调用基类的构造函数并把自己的实例变量加到新对象中。
Bean.pm代码如下：
packageBean;
requireExporter;
@ISA=qw(Exporter);
@EXPORT=qw(setBeanType);
subnew{
my$type=shift;
my$this={};
$this->{'Bean'}='Colombian';
bless$this,$type;
return$this;
}
#
#Thissubroutinesetstheclassname
subsetBeanType{
my($class,$name)=@_;
$class->{'Bean'}=$name;
print"Setbeanto$name\n";
}
1;
此类中，用$this变量设置一个匿名哈希表，将'Bean'类型设为'Colombian'。方法setBeanType()用于改变'Bean'类型，它使用$class引用获得对对象哈希表的访问。
三、Perl析构函数之子类方法的重载
继承的好处在于可以获得基类输出的方法的功能，而有时需要对基类的方法重载以获得更具体或不同的功能。下面在Bean.pm类中加入方法printType()，代码如下：
subprintType{
my$class=shift@_;
print"ThetypeofBeanis$class->{'Bean'}\n";
} 然后更新其@EXPORT数组来输出：
@EXPORT=qw(setBeanType,printType);
现在来调用函数printType()，有三种调用方法：
$cup->Coffee::printType(); $cup->printType(); $cup->Bean::printType();
输出分别如下：
ThetypeofBeanisMixed
ThetypeofBeanisMixed
ThetypeofBeanisMixed
为什么都一样呢？因为在子类中没有定义函数printType()，所以实际均调用了基类中的方法。如果想使子类有其自己的printType()函数，必须在Coffee.pm类中加以定义：
#
#Thisroutineprintsthetypeof$class->{'Coffee'}
#
subprintType{
my$class=shift@_;
print"ThetypeofCoffeeis$class->{'Coffee'}\n";
}
然后更新其@EXPORT数组：
@EXPORT=qw(setImports,declareMain,closeMain,printType);
现在输出结果变成了：
ThetypeofCoffeeisInstant
ThetypeofCoffeeisInstant
ThetypeofBeanisMixed
现在只有当给定了Bean::时才调用基类的方法，否则直接调用子类的方法。
那么如果不知道基类名该如何调用基类方法呢？方法是使用伪类保留字SUPER::。在类方法内使用语法如：$this->SUPER::function(...argumentlist...);，它将从@ISA列表中寻找。刚才的语句用SUPER::替换Bean::可以写为$cup->SUPER::printType();，其结果输出相同，为：
ThetypeofBeanisMixed
四、Perl析构函数中Perl类和对象的一些注释
OOP的最大好处就是代码重用。OOP用数据封装来隐藏一些复杂的代码，Perl的包和模块通过my函数提供数据封装功能，但是Perl并不保证子类一定不会直接访问基类的变量，这确实减少了数据封装的好处，虽然这种动作是可以做到的，但却是个很坏的编程风格。
注意：
1、一定要通过方法来访问类变量。
2、一定不要从模块外部直接访问类变量。
