Perl的数组操作

在标量使用场合中（即假定只有一个值），数组会返回其中包含的元素总数。列表却有所不同，在标量使用场合中，列表会返回最右边的那个元素的值。 不过，我们也可强迫一个数组返回一个标量结果，这需要使用scalar(标量)函数。如果想知道数组最后一个索引编号是多少，可在数组名前加上一个s#前缀，比如$#array。

$#array另外还有一个有趣的地方－我们可以用它改变一个数组的长度！ 如将一个整数赋给$#array，该整数就会成为数组的最高索引号。加入该命令导致一系列新元素加入数组，那么所有元素都会自动得到一个未定义的初始值。如果想把所有元素都从@array数组删除，可把一个空列表赋给该数组，即： @array = ();

 

有些时候，程序员希望按相反顺序来遍历一个数组内的所有元素。 利用负下标，Perl帮我们简化了这样的操作。例如，$array[-1] 这个表达式会返回数组的最后一个元素，而@array[-4]可返回倒数第4个元素。

 

另外，我们还可以利用方括号运算符[]来创建一个列表，其中包含了来自一个数组的指定元素集。

因此@array[1,2,3]可返回一个列表，其中包含了@array的第2个、第3个以及第4个元素（下标从0开始）。我们把这种特定的数组区域称为“数组片段”（Array Slice）。 注意在获取一个数组片段时，数组的前缀是@字符，而非$字符。事实上，我们可以将数组片段想象乘一个有单独元素构成的列表，这些元素由指定的下标编号所代表。通常，一个数组片段会返回一个由连续元素构成的列表－但这并非是必须的。