Perl shift 函式

描述

此函式返回陣列中的第一個值，刪除它並將陣列列表中的元素向左移動一個位置。如果未指定 ARRAY，則在子例程內移位 @_ 陣列，否則移位 @ARGV。shift 與 pop 基本上相同，但它從陣列的開始而不是從末尾獲取值。

語法

以下是此函式的簡單語法 −

shift ( [ARRAY] )

shift

返回值

如果陣列為空，此函式返回 undef，否則返回陣列中的第一個元素。

示例

以下是顯示其基本用法示例程式碼 −

#!/usr/bin/perl

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

執行以上程式碼時，將產生以下結果 −

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