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();