Perché un elenco di undef non è un valore di sola lettura o costante in Perl?

Question

Considerare i seguenti programmi in Perl.

use strict; 
use warnings; 

my @foo = qw(a b c); 
undef = shift @foo; 

print scalar @foo; 

Questo morirà con un messaggio di errore:

Modification of a read-only value attempted at ...

Utilizzando un constat darà un errore diverso:

1 = shift @foo; 

Can't modify constant item in scalar assignment at ...
Execution of ... aborted due to compilation errors.

Lo stesso se facciamo questo:

(1) = shift @foo; 

Tutti questi hanno senso per me. Ma inserire undef in un elenco funzionerà.

(undef) = shift @foo; 

Ora stampa 2.

Naturalmente questo è pratica comune se si dispone di un gruppo di valori di ritorno e desideri solo quelle specifiche, come qui:

my (undef, undef ,$mode, undef ,$uid, $gid, undef ,$size) = stat($filename); 

La nona riga del codice di esempio in perldoc -f undef mostra questo, butthere c'è spiegazione.

La mia domanda è: come viene gestito internamente da Perl?

Answer 1

Internamente, Perl ha diversi operatori per l'assegnazione scalare e l'assegnazione degli elenchi, anche se entrambi sono scritti nel codice sorgente =. E l'operatore di assegnazione lista ha il caso speciale per undef che stai chiedendo.