perl：pop函数

在Perl语言中，pop是一个数组函数，可以从数组的末尾删除并返回最后一个元素。其语法如下：

$element = pop @array;

其中@array是要操作的数组，$element是被删除的元素。在执行该语句后，原始数组@array的最后一个元素将被删除，并赋值给变量$element。

示例如下：

@array = (1, 2, 3, 4);
$last_element = pop @array; # $last_element 现在等于 4，@array 现在只包含(1, 2, 3)

pop函数还可以在无参数时操作内置变量@_，通常用于子程序中获取传递给它的参数列表中的最后一个参数。

sub my_subroutine {
    $last_param = pop @_;
    # do something with $last_param
}