perl如何传递数组参数shift应用

:在类别中建立新物件的new()方法

:

:sub new{

: my $class=shift;

: my $self={};

: bless $self;

: }

:中 my $class=shift 是何意义?

shift 的意思就是把整个 array 的第一个 value 取出,并将 array 长度减一(有点像 pop out)

也就是说 sub new 是传一串值进入

然后 my $class 会被 assign 最前面的那个传入值..

eg (from perlfunc manpage)

sub log10 {

my $n = shift;

return log($n)/log(10);

}

那在用的时候就可以用 log10(10) or log10(200)...