解析Perl面向对象编程中Perl构造函数概念
本文和大家重点讨论一下Perl构造函数的概念，Perl构造函数是类的子程序，它返回与类名相关的一个引用。相信通过本文的学习你对Perl构造函数的用法有明确的认识。
Perl构造函数
Perl构造函数是类的子程序，它返回与类名相关的一个引用。将类名与引用相结合称为“祝福”一个对象，因为建立该结合的函数名为bless()，其语法为：
blessYeReference[,classname]
YeReference是对被“祝福”的对象的引用，classname是可选项，指定对象获取方法的包名，其缺省值为当前包名。
◆创建一个Perl构建函数的方法为返回已与该类结合的内部结构的引用，如：
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、一定不要在类模块中使用全局变量。
加上声明的CocoaPerl构造函数如下：
subnew{
my$this={};
print"\n/*\n**CreatedbyCocoa.pm\n**Useatownrisk";
print"\n**Didthiscodeevengetpassthejavaccompiler?";
print"\n**/\n";
bless$this;
return$this;
} 也可以简单地调用包内或包外的其它函数来做更多的初始化工作，如：
subnew{
my$this={}
bless$this;
$this->doInitialization();
return$this;
} ◆创建类时，应该允许它可被继承，应该可以把类名作为第一个参数来调用new函数，那么new函数就象下面的语句：
subnew{
my$class=shift;#Gettherequestclassname
my$this={};
bless$this,$class#Useclassnametobless()reference
$this->doInitialization();return$this;
} 此方法使用户可以下列三种方式之一来进行调用：