Получить конкретное возвращаемое значение в 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";

Answer 2

при условии, что функция () возвращает список, а затем использование фрагмента, подобного предложенному выше, работает нормально.Если он возвращает ссылку на массив, то вам нужно получить к нему соответствующий доступ, например (@ {function ()}) [1], чтобы разыменовать aref, а затем нарезать его.