为什么 Perl 的自动激活在这种情况下起作用？

Question

有人可以帮助我理解这个 Perl 程序的输出：

use Data::Dumper;
my %hash;
$hash{hello} = "foo";
$hash{hello}{world} = "bar";
print $hash{hello} . "\n";
print $hash{hello}{world} . "\n";
print Dumper(\%hash);

以及输出：

foo
bar
$VAR1 = {
          'hello' => 'foo'
        };

“foo”来自哪里？怎么dumper没有打印出来呢？

请注意，如果我交换分配的顺序：

use Data::Dumper;
my %hash;
$hash{hello}{world} = "bar";
$hash{hello} = "foo";
print $hash{hello} . "\n";
print $hash{hello}{world} . "\n";
print Dumper(\%hash);

我的输出就是我所期望的：

foo

$VAR1 = {
          'hello' => 'foo'
        };

编辑： 我知道 use strict; 会捕获这个问题，但我更感兴趣的是知道如何字符串“foo”仍然被打印。

Answer 1

您的代码丢失

use strict;

C:\Temp> hui
Can't use string ("foo") as a HASH ref while "strict refs" in use at 
C:\Temp\hui.pl line 7.

确保所有脚本都以以下内容开头：

use strict;
use warnings;

鉴于：

$hash{hello} = "foo";

$hash{hello} 是不是哈希引用。

$hash{hello}{world} = "bar";

将字符串 "foo" 视为哈希引用并创建哈希 %main::foo 并将 $foo{world} 设置为 “栏”。

当您这样做时：

print Dumper \%hash;

它只打印 %hash 的内容。然而，当你

print $hash{hello}{world} . "\n";

这样做时，它会打印 $foo{world}。

如果没有 strict，您就不会发现脚本已经破坏了整个包名称空间。

添加一个

print Dumper \%main::;

或来检查符号表。

print Dumper \%main::foo;

运行后

Answer 2

基本上，字符串“foo”是 %hash 的唯一值，但是（由于非严格性）正在创建包含 (world => "bar")

Answer 3

如果您使用严格，您的脚本将会出错。

当“严格引用”在...中使用时，无法使用字符串（“foo”）作为哈希引用

Answer 4

仅当您以未定义的值开始时，自动生存才起作用。由于您的 $hash{hello} 不是未定义的值，因此您不会自动激活下一个级别。相反，您最终使用 $hash{hello} 作为软引用。