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