perl ciclo foreach nella subroutine

Question

Conosco la subroutine in perl pass arg per riferimento. Ma nel codice sottostante, il ciclo foreach nella subroutine non dovrebbe modificare il valore per @list perché lo my $i dovrebbe creare una nuova variabile in modo lessicale var $i. Qualsiasi assegnazione a $i dovrebbe essere in ambito lessicale ma non modificare il valore @list.

Qualcuno può spiegare cosa sta succedendo all'interno del ciclo di foreach che causa il cambio di valore a @list?

sub absList {  
    foreach my $i (@_) { 
     $i = abs($i); 
    } 
} 

@list = (-2,2,4,-4); 
absList(@list); 
print "@list"; 

Uscite:

2 2 4 4 

Answer 1

$i è alias agli elementi di matrice @_ dovuta foreach caratteristica (e @_ elementi sono alias per gli elementi del @list dovuta @_magic).

Da perldoc

Se qualsiasi elemento di LISTA è un lvalue, è possibile modificarlo modificando VAR all'interno del ciclo. Viceversa, se qualche elemento di LIST NON è un lvalue, qualsiasi tentativo di modificare quell'elemento fallirà. In altre parole, la variabile di indice del ciclo foreach è un alias implicito per ogni elemento dell'elenco su cui si sta eseguendo il ciclo.

Se si desidera evitare tale comportamento, non iterare direttamente sopra l'array @_, ad es.

sub absList { 
    my @arr = @_; 
    foreach my $i (@arr) { 
     $i = abs($i); 
    } 
} 

Answer 2

$i qui si riferisce elementi della lista che ottiene dalla @_, ecco perché cambiando $i cause cambiano nel rispettivo elemento dell'elenco.