在Perl中检索特定的返回值

Question

我正在寻找一个单行程,让我从子程序中获取第二个返回值.

而不是这个:

($a,$b)=function;
print $b

应该可以做这样的事情

print ??? function

Answer 1

这有效:

sub test { return (1,2) }
print ((test)[1]);  # Returns 2

这也有效:

print +(func())[1], "\n";