Question

哪位大神给解读一下这段perl代码

sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {};
bless $self, $class;
$self->initialize();
return $self;
}

Answer 1

sub new {
my $this = shift; #从标准输入栈中提取出第一个标量

my $class = ref($this) || $this; #$this是引用的话，就返回引用类型给class，否则直接把this的值给class

my $self = {};
bless $self, $class; #对象化
$self->initialize(); #调initialize函数

return $self; #返回对象self

}
整个就是一个对象初始化的函数，一般用来新建一个对象，一般写在类库文件*.pm的开头