Perl 弹出函数

描述

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

如果省略 ARRAY，则它会在主程序中或在 eval STRING 或 BEGIN、CHECK、INIT 或 END 块中调用时从 @ARGV 中弹出最后一个值。否则，它会尝试从子例程中的 @_ 数组中弹出信息。它与推送相反，当组合使用时，您可以实现“堆栈”。

请注意，应用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