Sintassi Perl insolita

Question

Devo apportare modifiche a uno script Perl e questo è il mio primo tentativo di comprendere Perl. Vedo il seguente:

my %trades; 
... 
foreach my $row (@$rows) { 
    @{$trades{pop @$row}} = @$row; 
} 

Sono confuso da questo perché sembra che ci stanno spuntando fuori l'ultimo elemento dell'array @$row e impostando il tasto cancelletto di %trades essere l'elemento che è stato spuntato fuori e l'impostazione del valore da @$row.

Questa comprensione è corretta?

Answer 1

capire che pezzo di codice, dobbiamo essere chiari su tre cose: ordine

• Valutazione:

  EXPR_A = EXPR_B 
  

  valuta le EXPR_B prima di valutare EXPR_A.

• semantica di copia:

  @new_array = @old_array 
  

  copia i valori di @old_array oltre a @new_array.

• Dereferencing di strutture dati complesse:

  @{ $trades{$key} } 
  

  accede dall'entrata chiamato $key nel %trades hash, che è considerata come un riferimento di matrice.

Insieme, il codice è equivalente a questo:

foreach my $row (@$rows) { 
    my @copy = @$row; 
    my $key = pop @$row; 
    @{ $trades{$key} } = @copy; 
} 

(pur conservando tutti gli effetti collaterali che posso vedere)

Così, per esempio

$rows = [ 
    [1, 2, "keyA"], 
    [3, 4, "keyB"], 
]; 

creerebbe

%trades = (
    keyA => [1, 2, "keyA"], 
    keyB => [3, 4, "keyB"], 
); 
$rows = [ 
    [1, 2], 
    [3, 4], 
]; 

Chiunque abbia scritto quella riga aveva una conoscenza molto precisa dell'ordine di valutazione e ama torturare i programmatori di manutenzione.

Answer 2

Il ciclo è equivalente a

my %trades = map { $_->[-1] => [ @$_ ] } @$rows 

tranne che in questo modo @$rows rimane non modificato. IMO dovrebbe essere scritto in questo modo.