sub digits_gone {
my ($str) = @_;
print "$str is $str ";
print "@_ is [@_] ";
print "@_ is @_ ";
@arr=[@_];
@arr2=@_;
print "@arr is @arr ";
print "@arr2 is @arr2 ";
}
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
其中 [@_] 表示数组@_的地址