perl shift()函數

perl shift()函數例子，shift()函數實例代碼 - 返回在一個數組中的第一個值，刪除和移位到左邊的元素數組列表一個位置。

語法

shift ( [ARRAY] ) shift

定義和用法

返回在一個數組中的第一個值，刪除和移位到左邊的元素數組列表一個位置。如果未指定數組ARRAY，轉移@_數組內的子程序，或@ARGV以其他方式。移位彈出本質上是相同的，除了值是從頭部的陣列，而不是末端。

返回值

• undef - 如果數組是空的

• 數組中的第一個元素

例子

試試下麵的例子：

#!/usr/bin/perl

@array = (1..5);
while ($element = shift(@array)) {
    print("$element - ");
}
print("The End\n");

這將產生以下結果。

1 - 2 - 3 - 4 - 5 - The End