W jaki sposób mogę uzyskać dostęp do elementów zwracanych przez podprogram Perl?

Question

Say podprogram Perl zwraca tablicę:

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

Chcę dostęp tylko konkretny element tablicy z tym powiedzieć, że w pierwszej kolejności. Mogłem więc:

@temparray=arrayoutput(argument); 

, a następnie odsyłać do $temparray[0].

Jednak ten krótki opis nie działa: $arrayoutput(some argument)[0].

Jestem przyzwyczajony do Pythona i nowego w Perlu, więc nadal szukam krótkiego, intuicyjnego, podobnego do Pythona sposobu (a=arrayoutput(some argument)[0]), aby uzyskać tę wartość. Moje programy w Perl robią się bardzo długie i używanie tymczasowych tablic, jak to wydaje się brzydkie. Czy jest jakiś sposób, żeby to zrobić w Perlu?

Answer 1

Slices

use warnings; 
use strict; 

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

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

__END__ 

d 

UPDATE: Kolejny przykład kodu zająć komentarz. Nie trzeba zmienną pośrednią:

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

Jednym ze sposobów może być [(arrayoutput(some argument))]->[0].

Answer 3

Zdjąć pierwszy argument tylko poprzez kontekście listy:

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

TIMTOWTDI z plasterkiem:

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

---

Oba style mogła być rozszerzony, aby wyodrębnić n-ty element zwróconej tablicy, chociaż wycinek listy jest nieco łatwiejszy w odbiorze:

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

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