perl pop函数详解

pop用法如下：

pop ARRAY

pop函数把一个数组当作一个堆栈对待。它弹出（删除）并返回数组的最后一个值，把数组缩短一个元素长度。如果省略了 ARRAY，那么该函数在子过程或者格式的词法范围里弹出 @_；在文件范围（通常是主程序），或者是用 eval STRING，BEGIN{}，CHECK{}，INIT{}，和 END{} 构造建立的词法范围里，它弹出@ARGV。它和下面的东西有同样的效果：

$tmp = $ARRAY[$#ARRAY--];

或者：

$tmp = splice @ARRAY, -1;

如果在数组里没有元素，那么pop返回undef。（不过，如果你的数组包含undef数值，那么 可不要依赖这个特性猜测数组是否为空！）又见poshi和shift。如果你想弹出超过一个元素，那么使用splice。
pop 要求它的第一个参数是一个数组，而不是一个列表。如果你只想一个列表的最后一个元素， 那么用：

( LIST )[-1]