Perl 中的 pop函数

描述

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

如果省略了ARRAY,它将在主程序中或在eval STRING或BEGIN,CHECK,INIT或END块中调用时,从@ARGV中弹出最后一个值。否则,它将尝试从子例程中的@_数组中弹出信息。它与push相反,当push结合使用时,它允许您实现"堆栈"。

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

语法

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

pop ARRAY

pop

返回值

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

例

以下是显示其基本用法的示例代码-

无涯教程网

#!/usr/bin/perl -w

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

执行上述代码后,将产生以下输出-

pop() 4  leaves 123