[perl笔记]

bmwm3

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