perl - 如何将两个列表传递给 Perl 子例程？

Question

是否可以将两个列表传递给 sub在 Perl 中，例如:

sub Foo {
 my(@list1,@list2) = @_;

}

我知道我可以制作 @_两个列表，每个子列表都是所需的参数，我只是想知道是否有更清洁的方法

Answer 1

好吧，如果你想要两个 数组 你可以使用原型(prototype):

sub foo (\@\@) {
   my $arr1 = shift;
   my $arr2 = shift;

   # Access arrays as references
}

foo( @wiz, @waz );  # @wiz and @waz won't be flattened.

但是有很多方法可以绕过原型(prototype)，我更喜欢在大多数地方避免它们。您可以简单地跳过原型(prototype)并手动传递引用:

sub foo {
   my $arr1 = shift;
   my $arr2 = shift;

   # Access arrays as references
}

foo( \@wiz, \@waz ); # Pass in wiz/waz as refs
foo( [1,2,4],[3,5,6] );  # Hard coded arrays

如果您根本没有使用过引用资料，请查看 perlreftut一个很好的教程。