为何Perl会为不存在的哈希键自动分配哈希引用？

原因：Perl的哈希自动实例化（Autovivification） #

这是Perl默认的哈希自动实例化机制导致的：

• 第一次执行print($fruit_colors->{'orange'})时，$fruit_colors中不存在'orange'键，返回undef，而print输出undef不会产生任何内容。
• 第二次执行print($fruit_colors->{'orange'}{'orange'})时，你尝试访问一个不存在的哈希键的子键。Perl为了让后续操作能正常进行，会自动在$fruit_colors中创建'orange'键，并将其值设为一个空的哈希引用。此时访问这个空哈希的'orange'键仍返回undef，所以还是无输出。
• 第三次执行print($fruit_colors->{'orange'})时，'orange'键已经被自动创建为一个空哈希引用，print函数输出哈希引用时，会打印它的字符串表示形式（如HASH(0x1f63098)）。

避免意外后果的方法 #

1. 显式检查键是否存在 #

使用exists函数确认外层键存在后，再访问子键：

use strict;
use warnings;

my $fruit_colors = {
        'apple' => {'red' => 'good'}
};

print($fruit_colors->{'orange'});

if (exists $fruit_colors->{'orange'}) {
    print($fruit_colors->{'orange'}{'orange'});
}

print($fruit_colors->{'orange'}); # 此时仍为undef，无输出

2. 禁用自动哈希实例化 #

安装Autovivification模块后，使用no autovivification;指令关闭自动实例化：

use strict;
use warnings;
no autovivification; # 需要先安装Autovivification模块

my $fruit_colors = {
        'apple' => {'red' => 'good'}
};

print($fruit_colors->{'orange'});
print($fruit_colors->{'orange'}{'orange'}); # 不会创建空哈希引用
print($fruit_colors->{'orange'}); # 仍为undef，无输出

安装模块可通过命令：cpanm Autovivification

3. 使用defined检查值 #

如果需要判断值是否已定义，而非仅仅存在，可使用defined：

print defined $fruit_colors->{'orange'} ? $fruit_colors->{'orange'}{'orange'} : '';

内容的提问来源于stack exchange，提问作者Linn Htet Aung