pop
描述 (Description)
此函数返回ARRAY的最后一个元素，从数组中删除该值。 请注意，ARRAY必须显式为数组，而不是列表。
如果省略ARRAY，它会弹出主程序中@ARGV的最后一个值，或者在eval STRING或BEGIN，CHECK，INIT或END块中调用时。 否则，它会尝试在子例程中弹出@_数组中的信息。 它与push相反，当组合使用时，允许您实现“堆栈”。
请注意，应用pop ，数组将缩短一个元素。
语法 (Syntax)
以下是此函数的简单语法 -
pop ARRAY
pop
返回值 (Return Value)
如果list为空，则此函数返回undef，否则返回数组中的最后一个元素。
例子 (Example)
以下是显示其基本用法的示例代码 -
#!/usr/bin/perl -w
@a = (1, 2, 3, 4);
print("pop() ", pop(@a), " leaves ",@a, "\n");
执行上述代码时，会产生以下结果 -
pop() 4 leaves 123
