Perl pop用法及代码示例

描述

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

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

注意申请后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