数组

1.Perl数组(1):

　　　　1) 初始化数组 @array = ( "stringA" , "stringB" , "stringC" );

　　　　2) 使用负索引循环检索　print $array[-1]; #输出索引为(-1 + 3) % 3 = 2 的 stringC

　　　　3) 动态增长 $array[4] = "stringD"; #虽然$array[3]还没有使用，但在动态赋值$array[4]的使用，已经对$array[3]赋空置

　　　　4) 动态增长后的负索引 print $array[-1]; #输出索引为(-1 + 5) % 5 = 4 的 stringD

　　　　5) print @array; #输出数组中所有值的无空格串接

　　　　stringAstringBstringC

　　　　6) print "@array"; #输出数组中所有值的空格分隔列表

　　　　stringA stringB stringC

2.Perl数组(2):

　　　　3) $#arrayname，该特殊变量保存着名为arrayname的数组的末尾索引值。

例如:　　@arr = ( 1,2,3,4,5 );

　　　　 则$#arr的值为4

　　　　$#arr=2; 这样就把数组arr截断，其元素4和5都被释放，数组长度值也被改变

　　　　4) @array[-1,4,7] 将分别输出索引值为-1,4,7的元素，这样的调用返回值不是标量，而是数组。