Perl学习（十二）——数组定义操作总结

本文介绍了Perl中数组如何定义，以及简答的值交换的方式。

下面是代码：

#!/usr/bin/perl -wprint "123\n";$array[0] = "aa";$array[1] = "pp";$array[2] = "ccss";$array[3] = "icc";$array[4] = "oia";print "$array[0]\n";print "$array[1]\n";print "$array[2]\n";print "$array[3]\n";print "$array[4]\n";print "==============================\n";#数组的定义需要用@开头@testarray2 = (1,2,3,4,5,"7agca");print "$testarray2[0]\n";print "$testarray2[1]\n";print "$testarray2[2]\n";print "$testarray2[3]\n";print "$testarray2[4]\n";print "$testarray2[5]\n";print "==============================\n";@testarray3 = ("aa","bb","cc","dd",12);print "$testarray3[0]\n";print "$testarray3[1]\n";print "$testarray3[2]\n";print "$testarray3[3]\n";print "$testarray3[4]\n";print "==============================\n";@testarray4 = qw(cc bb aa 4 64);print "$testarray4[0]\n";print "$testarray4[1]\n";print "$testarray4[2]\n";print "$testarray4[3]\n";print "$testarray4[4]\n";print "=============================\n";#Perl中值互换$var1 = 12;$var2 = 56;print "\$var1 : $var1";print "\n";print "\$var2 : $var2";print "\n";($var1,$var2)=($var2,$var1);print "\$var1 : $var1";print "\n";print "\$var2 : $var2";print "\n";

下面是运行结果：