niespójne zachowanie dotyczące „Nie można użyć nieokreślonej wartości jako odniesienie tablicy”

Question

Dlaczego następujący kod:

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}; 

rzucać błąd „Can't use an undefined value as an ARRAY reference”, podczas następującego kodu:

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}; 

Nic nie wrzuca, ale zamiast tego zwraca:

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

Oba mają naruszającego dorsza w nich, ale tylko jeden rzuca błąd.

możliwa odpowiedź:Perl's autovivification?

Jestem na dobrej drodze tutaj? Dzięki za wkład.

Answer 1

Tak, to, co wydarzyło się w drugim przypadku, nazywa się autoworyzacją, a stało się to tylko w drugim przypadku, ponieważ autoworyzacja występuje tylko dla wartości l: ^[1].

Więc

@{ $x } = $y; 

oznacza

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

ale

$y = @{ $x }; 

nie oznacza

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

Należy pamiętać, że foreach przypisuje zmienną pętli do każdego elementu listy, nad którą jest iterowany, więc te elementy są oceniane jako l-wartości.

Autoworyzacja jest dokumentowana w perlref, a można kontrolować autoworyzację za pomocą pragma autovivification.

---

1. Jeśli końcowy deferencing następuje przez indeksowania (np ->[] lub ->{}), wyrażenie odniesienia sam jest oceniana jako lwartości, nawet jeśli nie jest indeksowana całość. Oznacza to, że $y = $x->[0]; i $y = ${ $x }[0]; można automatycznie włączyć $x, nawet jeśli $y = @{ $x }; nie będzie.