Indexación directamente en la matriz devuelta en Perl

Question

Esta pregunta se ha realizado sobre PHP here y here, y tengo la misma pregunta para Perl. Dada una función que devuelve una lista, ¿hay alguna manera (o cuál es la mejor) de indexar inmediatamente sin usar una variable temporal?

Por ejemplo:

my $comma_separated = "a,b,c"; 
my $a = split (/,/, $comma_separated)[0]; #not valid syntax 

veo la razón por la sintaxis en la segunda línea no es válida, por lo que estoy preguntando si hay una manera de conseguir el mismo efecto sin asignar primero el valor de retorno a una lista y indexación de eso.

Answer 1

sólo tiene que utilizar paréntesis para definir su lista y luego en un índice para tirar de su elemento deseado (s):

my $a = (split /,/, $comma_separated)[0]; 

Answer 2

Al igual que usted puede hacer esto:

($a, $b, $c) = @array; 

Usted puede hacer esto:

my($a) = split /,/, $comma_separated; 

my $a en el LHS (lado izquierdo) se trata como contexto escalar. my($a) es contexto de la lista. Es una lista de elementos individuales por lo que solo obtiene el primer elemento devuelto por split.

Tiene el beneficio adicional de limitar automáticamente la división, por lo que no hay trabajo perdido si $comma_separated es grande.