Perl pop 函数
描述
此函数返回 ARRAY 的最后一个元素，从数组中删除值。 请注意，ARRAY 必须明确地是一个数组，而不是一个列表。
如果省略 ARRAY，它会弹出主程序中 @ARGV 中的最后一个值，或者在 eval STRING 或 BEGIN、CHECK、INIT 或 END 块中调用时弹出最后一个值。 否则，它会尝试从子例程中的@_ 数组中弹出信息。 它与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
