perl - 如何引用Perl子的返回值

Question

代码:

my $compare = List::Compare->new(\@hand, \@new_hand);
print_cards("Discarded", $compare->get_Lonly()) if ($verbose);

print_cards期望(标量，对数组的引用)。 get_Lonly返回数组。将其转换为引用的语法是什么，以便可以将其传递给print_cards？例如， \@{$compare->getLonly()}不起作用。

谢谢!

Answer 1

你可能想要

print_cards("Discarded", [$compare->get_Lonly])

子例程不返回数组，而是返回值列表。我们可以使用 [...]创建一个数组引用。

另一个变体是创建一个显式数组

if ($verbose) {
  my @array = $compare->get_Lonly;
  print_cards("Discarded", \@array)
}

第一个解决方案是这种方法的捷径。
@{ ... }是解引用运算符。它期望一个数组引用。如果您给它一个列表，这将无法正常工作。