Perl vivification问题,同时解除引用未定义的数组引用

我很难理解为什么以下的作品：

my $array_reference;
foreach $element (@{$array_reference}) {
# some code
}

而以下则不起作用

my $array_reference;
if (scalar (@{$array_reference}) {
    # some code here
}

我明白perl带来了生命(自动生化)未定义的参考。但是我仍然感到困惑，因为后者的代码段为什么会引发FATAL。

解决方法

Dereferences在左值上下文中自动化(意味着预期可修改的值)，并且foreach创建一个左值上下文。

>perl -E"$$x = 1;  say $x;"
SCALAR(0x74b024)

>perl -E"++$$x;  say $x;"
SCALAR(0x2eb024)

>perl -E"\$$x;  say $x;"
SCALAR(0x30b024)

>perl -E"sub {}->($$x);  say $x;"
SCALAR(0x27b03c)

>perl -E"for ($$x) {}  say $x;"
SCALAR(0x25b03c)

最后两个创建一个左值上下文，因为它们需要一个值分配给别的$ _ [0]和$ _(分别)。