[root@june2 ~]# cat a2.pl
sub digits_gone {
my ($str) = @_;
print "\$str is $str\n";
print "\@_ is [@_]\n";
print "\@_ is @_\n";
@arr=[@_];
@arr2=@_;
print "\@arr is @arr\n";
print "\@arr2 is @arr2\n";
}
$str is aaaaa
@_ is [aaaaa bbbbb cccccc]
@_ is aaaaa bbbbb cccccc
@arr is ARRAY(0x92e1c28)
sub digits_gone {
my ($str) = @_;
print "\$str is $str\n";
print "\@_ is [@_]\n";
print "\@_ is @_\n";
@arr=[@_];
@arr2=@_;
print "\@arr is @arr\n";
print "\@arr2 is @arr2\n";
}
digits_gone (aaaaa,bbbbb,cccccc);
$str is aaaaa
@_ is [aaaaa bbbbb cccccc]
@_ is aaaaa bbbbb cccccc
@arr is ARRAY(0x92e1c28)
@arr2 is aaaaa bbbbb cccccc
其中 [@_] 表示数组@_的地址
扫一扫
1892
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
