Как я могу выборочно обращаться к элементам, возвращаемым подпрограммой Perl?

Question

Say подпрограмма Perl возвращает массив:

sub arrayoutput 
{ 
    ...some code... 
    return @somearray; 
} 

Я хочу получить доступ только конкретный элемент массива из этого, скажем, первых. Так что я мог бы сделать:

@temparray=arrayoutput(argument); 

, а затем обратитесь к $temparray[0].

Но этот вид короткой справки не работает: $arrayoutput(some argument)[0].

Я привык к Python и новый для Perl, поэтому я все еще ищу короткий, интуитивный, похожий на питон способ (a=arrayoutput(some argument)[0]), чтобы получить это значение. Мои программы Perl становятся очень длинными, и использование временных массивов вроде бы кажется уродливым. Есть ли способ в Perl сделать это?

Answer 1

Slices

use warnings; 
use strict; 

sub foo { 
    return 'a' .. 'z' 
} 

my $y = (foo())[3]; 
print "$y\n"; 

__END__ 

d 

UPDATE: Еще один пример кода для решения Вашего комментария. Вам не нужна промежуточная переменная:

use warnings; 
use strict; 

sub foo { 
    return 'a' .. 'z' 
} 

print((foo())[7], "\n"); 

if ((foo())[7] eq 'h') { 
    print "I got an h\n"; 
} 

__END__ 

h 
I got an h 

Answer 2

Один способ может быть [(arrayoutput(some argument))]->[0].

Answer 3

стянуть первого аргумента только через контекст списка:

my ($wanted) = array_returning_sub(@args); 

TIMTOWTDI с ломтиком:

my $wanted = (array_returning_sub(@args))[0]; 

---

Оба стиля могли быть расширенным, чтобы извлечь n-й элемент возвращенного массива, хотя фрагмент списка немного проще на глазу:

my (undef, undef, $wanted, undef, $needed) = array_returning_sub(@args); 

my ($wanted, $needed) = (array_returning_sub(@args))[2,4];