perl數組的多數字下標範例程式碼

perl數組中正常的下標運算，想必大家都比較熟悉，這裡不作說明。
本文想說的是perl數組下標的多數字取值，可以極大的方便數組的操作。
注意：這些數字是從0 到 $#array的。

子數組

複製代碼 代碼如下:@array = (1, 2, 3, 4, 5);
@subarray = @array[0,1]; # @subarray = (1, 2)
@subarray2 = @array[1..3]; # @subarray2 = (2,3,4)
@array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now
@array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now
@array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now
@array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now

可以用子數組形式來交換元素：

複製代碼 代碼如下:@array[1,2] = @array[2,1];