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