¿Cómo puedo acceder selectivamente a elementos devueltos por una subrutina de Perl?

Question

dicen que una subrutina Perl devuelve una matriz:

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

Quiero tener acceso a un elemento de la matriz única específica de esto, digo el primero. Entonces podría hacer:

@temparray=arrayoutput(argument); 

y luego consultar $temparray[0].

Pero este tipo de referencia corta no funciona: $arrayoutput(some argument)[0].

Estoy acostumbrado a Python y nuevo en Perl, así que sigo buscando una forma corta, intuitiva, similar a la de pitón (a=arrayoutput(some argument)[0]) para obtener este valor. Mis programas de Perl se están volviendo muy largos y el uso de arreglos temporales como ese parece feo. ¿Hay alguna manera en Perl para hacer esto?

Answer 1

Slices

use warnings; 
use strict; 

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

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

__END__ 

d 

ACTUALIZACIÓN: Otro ejemplo de código para hacer frente a su comentario. No es necesario una variable intermedia:

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

Una forma podría ser [(arrayoutput(some argument))]->[0].

Answer 3

Tire fuera el primer argumento sólo a través contexto de la lista:

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

TIMTOWTDI con una rodaja:

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

---

Ambos estilos podrían extenderse para extraer el n-ésimo elemento de la matriz devuelta, aunque el sector de la lista es un poco más simple:

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

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