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; }