Come posso trasformare un array restituito da una funzione (come split) in un riferimento di array?

Question

Considerate questo codice:

@tmp = split(/\s+/, "apple banana cherry"); 
$aref = \@tmp; 

Oltre ad essere poco elegante, il codice di cui sopra è fragile. Dire che seguo con questa linea:

@tmp = split(/\s+/, "dumpling eclair fudge"); 

Ora $$aref[1] è "eclair" invece di "banana".

Come posso evitare l'uso della variabile temporanea?

Concettualmente, sto pensando a qualcosa di simile

$aref = \@{split(/\s+/, "apple banana cherry")}; 

Answer 1

Si potrebbe fare questo se si vuole un array-ref:

my $aref = [ split(/\s+/, "apple banana cherry") ]; 

Answer 2

ho capito:

$aref = [split(/\s+/, "apple banana cherry")]; 

Answer 3

Mentre mi piace la risposta di mu (e userei prima quell'approccio qui), tieni presente che le variabili possono essere piuttosto circoscritte, anche se ut l'uso di funzioni, immagini:

my $aref = do { 
    my @temp = split(/\s+/, "apple banana cherry"); 
    \@temp; 
}; 
print join("-", @$aref), "\n"; 
# with warnings: Name "main::temp" used only once: possible typo at ... 
# with strict: Global symbol "@temp" requires explicit package name at ... 
print join("-", @temp), "\n"; 

Felice codifica.