Perl入门（三）Perl的数组

obeckham

　　Perl数组的声明方式Perl%E4%BD%BF%E7%94%A8">br/>Perl使用"@"符号声明一个数组：@array；
使用"()"或"qw()"声明数组中元素；
　　一个完整的声明方式为：
　　@array = (12,"123","abc",$var);......方法一
　　或者
　　@array = qw(12 123 abc); ............方法二
　　或者
　　@array = (1..10).....................方法三Perl%E6%95%B0%E7%BB%84%E7%9A%84%E5%AD%98%E5%8F%96
　　%E6%95%B0%E7%BB%84%E9%80%9A%E8%BF%87%E4%B8%8B%E6%A0%87%E8%BF%9B%E8%A1%8C%E5%AD%98%E5%8F%96%EF%BC%8C%E6%95%B0%E7%BB%84%E7%9A%84%E4%B8%8B%E6%A0%87%E4%BB%8E0%E5%BC%80%E5%A7%8B,%E5%8D%95%E4%B8%AA%E5%85%83%E7%B4%A0%E5%AD%98%E5%8F%96%E6%8E%A8%E8%8D%90%E4%BD%BF%E7%94%A8%24,%E5%A4%9A%E4%B8%AA%E5%85%83%E7%B4%A0%E5%AD%98%E5%8F%96%E6%8E%A8%E8%8D%90%E4%BD%BF%E7%94%A8@%E3%80%82br/>@array[1..3]表示数组的第二个元素到第四个元素：2,3,4
@array[1,2,4]表示数组的第二，第三和第五个元素：2,3,5；顺序也可以交换：@array[4,1,2]： 5 2 3;
　　修改数组
　　通过上述取数组元素的方法，取得元素，然后进行重新赋值。
　　$array[0]= -1;# $array=(-1,2,3,4,5,6,7)
　　@array[1..2]=(8,9); # $array=(1,8,9,4,5,6,7)
　　Perl数组的初始化方法
　　()初始化
　　如【方法一】所示，将元素放入括号内以","为分隔符
　　qw()初始化
　　如【方法二】所示，将元素放入qw()的括号内，元素之间以【空格】分隔，字符串类型不需要使用引号。
　　缺点：它将括号内内容视为一整个字符串，然后根据空格进行分割，但是如果你希望某一个元素中也包含个空格，就没有办法实现.
　　..初始化
　　如【方法三】所示，".."表示一个范围，(1..5)等价于(1,2,3,4,5),(a..z)表示字母a-z的集合
　　Perl数组的基本属性
　　$#array 表示数组的最后一个元素的下标，数组长度-1
　　@array 表示数组长度，直接进行print会输出数组内容
　　Perl数组的遍历
　　方法一：使用循环数组下标进行遍历（较简单，自己动手尝试）
　　方法二：使用foreach循环进行遍历
　　[python] view plain copy
　　#!user/bin/env perl -w
　　@array = qw(1 2 3 4 5 6);
　　$var = 100;
　　foreach $var (@array)
　　{
　　print "$var\n";
　　}
　　print "var is : $var\n";
　　输出结果
　　[python] view plain copy
　　1
　　2
　　3
　　4
　　5
　　6
　　var is : 100
　　上述输出结果中：
　　foreach如何进行遍历
　　应该有注意到$var，var在循环中，担任一个局部变量的角色，循环完成后var的值还是原来的100，可以理解为：这个过程中有两个$var，一个是循环外面的，另外一个是foreach的局部变量.
　　数组相关的函数
　　sort：按照字符在ASCII码表中的顺序逐位向下进行排序
　　reverse：将数组进行倒序