答案

在Perl中，子程序通过特殊的数组变量@_接收参数，所有传递的参数会自动放置在这里。Perl的一个特点是，参数通过引用进入@_，因此，在函数内部修改元素会更改外部的值。

为了避免意外更改传递的数据，建议将参数复制到变量中：

sub sum {
    my ($a, $b) = @_;
    return $a + $b;
}

Perl函数总是返回列表值，函数的结果是最后计算的列表或显式的return操作。

sub minmax {
    my ($x, $y) = @_;
    return ($x < $y ? $x : $y, $x > $y ? $x : $y);
}
my ($min, $max) = minmax(4, 7); # $min = 4; $max = 7

如果在标量上下文中调用函数，它将返回返回的元素数量，除非结果放在标量中。

误导性问题

如何在Perl中将大量变量传递给函数，而不小心更改原始变量的值？

无意识的回答是：“只需像往常一样将参数复制到变量中！”

正确答案：

复制仅适用于标量。如果您处理数组或哈希，请使用引用来明确管理数据传递并避免引用复制：

sub modify {
    my ($arr_ref) = @_;
    push @$arr_ref, 'new'; # 修改原始数组
}
my @data = (1, 2, 3);
modify(\@data); # 现在 @data = (1, 2, 3, 'new')

历史

历史 1

在一个大型报告处理脚本中，内部函数更改了从主程序传递的数组元素的值。因此，在函数执行结束后，原始数据被扭曲。错误在于函数的作者没有复制输入值，以为更改是局部的——这对于@_和数组来说是错误的。

历史 2

在将脚本从Perl 4（其中变量以不同方式复制）迁移时，团队遇到了一个问题：传递嵌套哈希导致在子程序调用之间出现意外的数据“泄漏”——在一个函数中修改哈希字段会影响代码的其他部分。原因是@_列表中对哈希的引用。

历史 3

开发者实现了一个返回结果数组的函数，但在调用位置使用了标量上下文：$count = func(@params);。原本预期变量会被赋值为第一个返回元素的值，结果$count却是列表中元素的数量，这导致了计算延迟和困惑。