perl - 如何将 Perl 数组引用中的元素作为单独的参数传递给子例程？

Question

我有一个列表，其中包含要传递给函数的参数。我如何调用该函数？

例如，假设我有这个功能：

sub foo {
  my ($arg0, $arg1, $arg2) = @_;
  print "$arg0 $arg1 $arg2\n";
}

假设我有：

my $args = [ "la", "di", "da" ];

foo不写怎么打电话foo($$args[0], $$args[1], $$args[2])？

Answer 1

@您可以通过粘贴在它前面来取消引用数组引用。

foo( @$args );

或者，如果您想更明确：

foo( @{ $args } );

Answer 2

这应该这样做：

foo(@$args)

这实际上不是一个apply函数。该语法只是将数组引用解引用回普通数组。man perlref告诉你更多关于参考的信息。

Answer 3

试试这个：

foo(@$args);

Answer 4

foo(@$args);

或者，如果您有参考foo：

my $func = \&foo;
...
$func->(@$args);

Answer 5

这很简单。富（@{$args}）