Perl pop()函数

perl pop()函数例子，pop()函数实例代码 - 返回的最后一个元素的数组，从数组中删除值。

语法

pop ARRAY pop

定义和用法

返回的最后一个元素的数组，从数组中删除值。需要注意的是数组必须明确的是一个数组，而不是一个列表。如果省略了ARRAY，会弹出的最后一个值从@ARGV内的eval STRING在主程序中调用时，或在BEGIN，CHECK，INIT 和 END块。否则，它会试图弹出信息的@_数组内的子程序。这是相反的推动，结合使用时，可以让你实现“栈”。

需要注意的是，在应用弹出一个元素数组将被缩短。

返回值

• undef - 如果列表是空的

• 数组的最后一个元素

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

@a = (1, 2, 3, 4);
print("pop() ", pop(@a), "   leaves  ",@a, "\n");

这将产生以下结果：

pop() 4  leaves 123