[perl笔记] - 对象和继承

package classname

#构造函数
sub new{
#所谓对象其实是一个哈希表或者数组
my $self = shift; 
bless $self, shift; #将self和类关联,告诉对象，你现在是shift类了，你可以使用shift类的方法了。
return $self;
}

sub virtual_method{

}

1;

 

对象以.pm文件结尾

静态方法:　　第一个参数为类名，

虚方法:　　第一个参数为对象的引用shift

方法处理第一个参数的方式决定了它是静态的还是虚的。静态方法一般忽略掉第一个参数，因为它们已经知道自己在哪个类了，构造函数即静态方法。

 

继承

# parent class
package parent
sub new{
my $type= shift;
my $class=ref($type)||$type;
my $self = {data1=>undef, data2=>undef};
bless $self, $class;
return self;

}
;

#child class
package class
use parent
our  @ISA=("parent"); # this is extend, if method can't find in self class, then find in @ISA classes, if still not, find in AUTOLOAD, but you must call use AUTOLOAD first; if failed, then try in UNIVERSAL class, all attenption failed, throw exception

sub new{
my $type= shift;
my $class=ref($type)||$type;
my $self = $class->super::new; #继承父类数据

$self->{data3}="";#创建自己数据
bless $self, $class;
return self;

}