uat-prx02:/root# cat a1.pl
@array=qw/1 2 3 /;
print @array;
print "\n";
$array=[1,2,3];
print $array;
print "\n";
print "222222222222\n";
print @$array;
print "\n";
uat-prx02:/root# perl a1.pl
123
ARRAY(0x2146188)
222222222222
123本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
