论坛 › Perl › 面向对象的perl

winson 发表于 2017-5-18 10:21:47

面向对象的perl

1 类：
类名称：
package Person;
构造函数：
sub new {
my $self = {};
$self->{NAME}= undef;
$self->{AGE}   = undef;
$self->{PEERS} = [];
bless($self);   
}



2 继承

######################################
package Man;
########################################
@ISA = ("Person");
sub new{
my $self = {};
bless ($self);
}

3 调用：

my $man = Man->new;
$man->name('ssss');
print $man->age(18);


注意一定要为子类对象定义显式的构造函数，否则创建的总是person对象，而非Man对象

查看完整版本: 面向对象的perl