注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

perl 类、对象、包  

2009-06-07 13:40:01|  分类: Perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

# Perl 类与对象
# .类是一个Perl包,其中含提供对象方法的类。
# .方法是一个Perl子程序,类名是其第一个参数。
# .对象是对类中数据项的引用。

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


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

 

# 构造函数
# 构造函数是类的子程序,它返回与类名相关的一个引用。将类名与引用相结合称为“祝福”一个对象,因为建立该结合的函数名为bless(),其语法为:
    # bless YeReference [,classname]
# YeReference是对被“祝福”的对象的引用,classname是可选项,指定对象获取方法的包名用于继承其他类,其缺省值为当前包名。
# 创建一个构建函数的方法为返回已与该类结合的内部结构的引用,如:
# 构造函数
sub new {
 my $this = {}; # Create an anonymous hash, and #self points to it.
 bless $this; # Connect the hash to the package Cocoa.  bless $this, $parentClass
 return $this; # Return the reference to the hash.
}

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


#析构函数 
sub DESTROY {
#
# Add code here.
#
}


1;
##########包结束
############################################33

 

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

 

包的构造函数
sub new {
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";


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

  评论这张
 
阅读(909)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017