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

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

#!/usr/bin/perl -w

print "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";