zwu

摘要：这算是Perl OOP编程的构造函数 package xxx;...sub new { my $class = shift(); my $self = {}; bless $self, $class; return $self;}...1; 更简短的构造函数如下sub new { my $self 阅读全文