浅析Perl语言中的Perl类、对象、包概念-perl语言

本文和大家重点讨论一下Perl类、对象、包的概念及使用，Perl类是一个Perl包，其中含提供对象方法的Perl类，而对象是对Perl类中数据项的引用。

Perl类、对象、包概念解析

Perl类与对象

◆Perl类是一个Perl包，其中含提供对象方法的Perl类。
◆方法是一个Perl子程序，Perl类名是其***个参数。
◆对象是对Perl类中数据项的引用。

◆首先，创建一个名为Cocoa.pm的包文件(扩展名pm是包的缺省扩展名，意为PerlModule)。一个模块就是一个包，一个包就是一个Perl类。在做其它事之前，先加入1;”这样一行，当你增加其它行时，记住保留“1;”为***一行。这是Perl包的必需条件，否则该包就不会被Perl处理。下面是该文件的基本结构。

包

packageCocoa;
requireExporter;
@ISA=qw(Exporter);
@EXPORT=qw(setImports,declareMain,closeMain);
#这两行包含上Exporter.pm模块，并把ExporterPerl类名加入@ISA数组以供查找。接下来把你自己的Perl类方法列在@EXPORT数组中就可以了。例如想输出方法closeMain和declareMain，语句如下：@EXPORT=qw(declareMain,closeMain);

构造函数

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

subnew{  
my$this={};#Createananonymoushash,and#selfpointstoit.  
bless$this;#ConnectthehashtothepackageCocoa.bless$this,$parentClass  
return$this;#Returnthereferencetothehash.  
}

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

Perl类的调用

1#!/usr/bin/perl  
2push(@INC,'pwd');  
3useCocoa;  
4$cup=newCocoa;#或者$cup=cocoa->new();或$cup=Cocoa::new();

包的构造函数

subnew{  
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'}\n";
print"x=$mug->{'x'}\n";
print"y=$mug->{'y'}\n";

Perl类静态方法：

1.subnameLister{  
2.my$this=shift;#构造函数即静态方法。虚方法通常首先把***个参数shift到变量self或this中，然后将该值作普通的引用使用  
3.my($keys,$value);  
4.while(($key,$value)=each(%$this)){  
5.print"\t$keyis$value.\n";  
6.}  
7.}

【编辑推荐】