Perl alt yordamı tarafından döndürülen öğelere nasıl seçici olarak erişebilirim?

Question

bir Perl altyordam dizisi döndürür ki: Ben, bu sadece belirli bir dizi elemanı erişmek istediğiniz ilk söylemek

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

. Bu yüzden:

ve sonra $temparray[0]'a bakın.

Ancak bu tür bir kısa başvuru çalışmıyor: $arrayoutput(some argument)[0].

Python için kullanılan ve yeni Perl, bu yüzden hala bu değeri elde etmek bazı kısa, sezgisel, piton benzeri şekilde (a=arrayoutput(some argument)[0]) arıyorum duyuyorum. Perl programım çok uzun sürüyor ve bunun gibi geçici diziler kullanmak çirkin görünüyor. Perl'de bunu yapmanın bir yolu var mı?

Answer 1

Slices

use warnings; 
use strict; 

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

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

__END__ 

d 

GÜNCELLEME: Başka kod örneği yorum adres için. Sen bir ara değişkeni gerekmez: sadece liste kapsamında aracılığıyla ilk argüman kapalı

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

Tek yön [(arrayoutput(some argument))]->[0] olabilir.

Answer 3

Çekme: Bir dilim

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

TIMTOWTDI:

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

---

Hem stilleri olabilir liste dilim biraz daha kolay olsa da, döndürülen dizinin n'th elemanını çıkarmak için uzatılmalıdır:

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

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