Perl pop 函数

描述

此函数返回 ARRAY 的最后一个元素，并从数组中删除该值。请注意，ARRAY 必须显式地是数组，而不是列表。

如果省略 ARRAY，则它会弹出主程序中或在 eval STRING 或 BEGIN、CHECK、INIT 或 END 代码块中调用的 @ARGV 中的最后一个值。否则，它会尝试从子程序中的 @_ 数组中弹出信息。它是 push 的反义词，当组合使用时，允许您实现“堆栈”。

请注意，应用pop后，数组将缩短一个元素。

语法

以下是此函数的简单语法：

pop ARRAY

pop

返回值

如果列表为空，则此函数返回 undef，否则返回数组中的最后一个元素。

示例

以下示例代码展示了其基本用法：

#!/usr/bin/perl -w

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

执行以上代码时，会产生以下结果：

pop() 4  leaves 123