Perl入门（三）Perl的数组

remington_young

　　Perl数组的声明方式

　　Perl使用"@"符号声明一个数组：@array；
　　使用"()"或"qw()"声明数组中元素；
　　一个完整的声明方式为：
　　@array = (12,"123","abc",$var);......方法一
　　或者
　　@array = qw(12 123 abc); ............方法二
　　或者
　　@array = (1..10).....................方法三

Perl数组的存取

数组通过下标进行存取，数组的下标从0开始,单个元素存取推荐使用$,多个元素存取推荐使用@。
以@array=(1,2,3,4,5,6,7);为例
取数组元素：
$array[0]表示数组的第一个元素 1，以此类推。
@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循环进行遍历

#!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";
　　输出结果

1
2
3
4
5
6
var is : 100
　　

上述输出结果中：

• foreach如何进行遍历
  
• 应该有注意到$var，var在循环中，担任一个局部变量的角色，循环完成后var的值还是原来的100，可以理解为：这个过程中有两个$var，一个是循环外面的，另外一个是foreach的局部变量.
  

数组相关的函数

sort：按照字符在ASCII码表中的顺序逐位向下进行排序
reverse：将数组进行倒序