将数组传递给 Perl 中的函数

Question

我想我误解了 Perl 中将参数传递给函数的某些方面。 func(\@array)和func(@array)有什么区别？

AFAIK，在这两个函数中，参数都是通过引用传递的，在这两个函数中，我们可以在主程序中更改 @array 的元素。那么有什么区别呢？我们什么时候应该使用哪个？

@array = (1,2,3);
func(@array);
func(\@array);

sub func {
    ...
}

另外，如何在 Perl 中模拟传递值？使用@_ 是唯一的方法吗？

Answer 1

不可能将数组传递给 subs。 Subs 采用标量列表作为参数。 （这也是他们唯一可以返回的东西。）

您可以传递对数组的引用：

func(\@array)

你可以传递数组的元素：

func(@array)

---

我们什么时候应该使用哪个？

如果您想传递的不仅仅是数组的元素（例如传递 $x、$y 和 @a），除非您传递引用，否则可能会变得很棘手。

如果您要处理列表（例如 sum mysub grep { ... } ...），您可能不想传递引用。

如果你想修改数组（而不是仅仅修改数组的现有元素），你需要传递一个引用。

为长数组传递引用可能更有效，因为创建一个引用并将其放入堆栈比为大数组的每个元素创建别名要快。不过，这很少会成为问题。

通常由上述前两项中的一项决定。除此之外，这主要是个人喜好问题。

---

另外，如何在 Perl 中模拟传递值？

sub foo {
   my ($x) = @_;   # Changing $x doesn't change the argument.
   ...
}

sub foo {
   my @a = @_;   # Changing @a or its contents
   ...           #    doesn't change the arguments.
}

Answer 2

AFAIK，在这两个函数中，参数都是通过引用传递的，在这两个函数中，我们可以在主程序中更改 @array 的元素。

“改变元素”，是的。但是，在func(@array) 的情况下，子无法对数组进行其他更改（截断、推送、弹出、切片、传递对其他内容的引用，甚至取消定义）。

我会避免使用术语“通过引用传递”，因为该机制与 Perl 的引用完全不同。它不那么重载:) 说在 sub 中，@_ 的元素开始别名为传递给 sub 的元素。

Answer 3

func(\@array) 传递一个引用。 func(@array) 传递一个列表（@array 中的元素）。正如基思所指出的，这些元素是通过引用传递的。但是，您可以在 sub 内部进行复制以便按值传递。

你追求的是这个：

sub func {
    my @array = @_;
}

这会将func 的参数副本传递给@array，这是子例程范围内的局部变量。

文档here