关于“不能使用未定义的值作为数组引用”的不一致行为

Question

为什么会出现以下代码：

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

抛出错误“Can't use an undefined value as an ARRAY reference”，而下面的代码：

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

不抛出任何东西，而是返回：

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

两者都有违规代码，但只有一个抛出错误。

可能的答案： Perl's autovivification?

我在正确的轨道上吗？感谢您的意见。

Answer 1

是的，在第二种情况下发生的事情称为自动生存，它只在第二种情况下发生，因为自动生存只发生在左值^[1]。

所以

@{ $x } = $y;

意思

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

但是

$y = @{ $x };

不代表

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

请记住，foreach 将其循环变量别名为其迭代的列表中的每个元素，因此这些元素被评估为左值。

自动激活记录在 perlref 中，您可以通过 autovivification pragma 控制自动激活。

---

1. 如果最后的引用后跟一个索引（例如->[] 或->{}），即使索引的整体不是，引用表达式本身也会被评估为左值。这意味着$y = $x->[0]; 和$y = ${ $x }[0]; 可以自动激活$x，即使$y = @{ $x }; 不会。