comportamento incoerente in materia di "Non è possibile utilizzare un valore indefinito come un riferimento ad array"

Question

Perché il seguente codice:

use strict; 
use warnings; 
no warnings 'uninitialized'; 

use Data::Dumper; 

my $user; 
my @data = @{$user->{ENTERPRISE}}; # Error on this line 
print Dumper($user), qq{Done!\n}; 

Gettare l'errore "Can't use an undefined value as an ARRAY reference", mentre il codice seguente:

use strict; 
use warnings; 
no warnings 'uninitialized'; 

use Data::Dumper; 

my $user; 
foreach my $enterprise(@{$user->{ENTERPRISES}}) { 
    print qq{Enterprise:}, $enterprise; 
} 
print Dumper($user), qq{Done!\n}; 

non buttare via nulla, ma invece restituisce:

$VAR1 = { 
      'ENTERPRISES' => [] 
     }; 
Done! 

Entrambi hanno il merluzzo incriminato e in loro, ma solo uno sta lanciando l'errore.

possibile risposta:Perl's autovivification?

Sono sulla strada giusta? Grazie per il tuo contributo.

Answer 1

Sì, quello che è successo nel secondo caso si chiama autovivificazione, ed è successo solo nel secondo caso perché l'autovivificazione avviene solo per lvalue ^[1].

Così

@{ $x } = $y; 

significa

@{ $x //= [] } = $y; 

ma

$y = @{ $x }; 

non significa

$y = @{ $x //= [] }; 

Ricordare che foreach alias la sua variabile loop su ogni elemento della lista su cui itera, quindi questi elementi vengono valutati come lvalue.

L'autovivificazione è documentata in perlref ed è possibile controllare l'autovivificazione tramite il pragma autovivification.

---

1. Se il deferencing finale è seguito da un indicizzatore (ad esempio ->[] o ->{}), l'espressione di riferimento si è valutata come valore assegnabile anche se tutto indicizzata non è. Ciò significa che $y = $x->[0]; e $y = ${ $x }[0]; possono essere autovivificati $x anche se $y = @{ $x }; no.