Perl 特殊符号

[root@june2 ~]# cat a2.pl?
sub digits_gone {
my ($str) = @_;
print "$str is $strn";
print "@_ is [@_]n";
print "@_ is @_n";
@arr=[@_];
@arr2=@_;
print "@arr is @arrn";
print "@arr2 is @arr2n";
}

digits_gone (aaaaa,bbbbb,cccccc);

[root@june2 ~]# perl a2.pl?
$str is aaaaa
@_ is [aaaaa bbbbb cccccc]
@_ is aaaaa bbbbb cccccc
@arr is ARRAY(0x92e1c28)

@arr2 is aaaaa bbbbb cccccc

其中 [@_] 表示数组@_的地址