Perl的列表与数组

Perl的列表相当于数组、哈希等数据结构的字面量，即可用于初始化数组和哈希，其形式为

(x1, x2, x3, ...)

若列表中的元素均为字符串，则可以用另一种便捷的形式

qw(x1 x2 x3 ...)

范围运算符(1..10)表示该列表包含1到10之间的10个数字，字母也可使用

 

数组形式为@array

基本操作如下

初始化：

@array = (x1, x2, x3, ...);

取数组元素：

@array[index]

或

$array[index]

获得数组最后一个元素的索引：

$#array

获得数组长度：

$size = @array

Tips：以下两条语句意义不同：

$size = @array    //获取数组长度
($size) = @array  //($size)看做一个列表，该语句作用是将@array的第一个元素赋给$size

遍历数组：

foreach $e (@array){  //变量$e遍历@array的所有元素，若省略$e，则遍历变量默认为$_
	statements;
}

几个上下文的例子

if(@array){	//这里@array返回数组的长度
	statements;
}

print @array;	//这里@array看做一个列表，该语句会打印@array的所有元素

$a = <STDIN>;        //读取一行输入
@a = <STDIN>;	//读取多行输入，数组@a的每个元素代表一行

print scalar(@array);	//scalar()函数返回数组长度