perl 的面向对象入门
perl是一门强大优雅的脚本语言，perl的模块重用有2种方式，一种是非面向对象的方式（以函数为单位导出），另一种是以面向对象的方式。建议使用面向对象的方式（以函数为单位导出时，会有额外的语法，且时今面向对象的已深入人心）perl并没有为面向对象提供特别的语法，只是通过引用巧妙的实现了面向对象，以下是一个例子
package Dog;
sub new{
$self={
'name'=>''
};
bless $self;
return $self;
}
sub get_name{
$self=shift;
return $self->{'name'};
}
sub set_name{
$self=shift;
$name=shift;
$self->{'name'}=$name;
}
return 1;
以上 Dog为类名，用package声明，在末尾必须返回一个非0的数值。
在其他地方调用的例子：
use Dog;
$dog=Dog->new();
$dog->set_name('wang cai');
print $dog->get_name();
页:
[1]