Perl哈希莫名生成空键求助：复制键后多出1个空键

问题根源 #

问题出在代码的这一行：

my %Hash3 = undef;

在Perl中，哈希的初始化需要传入键值对构成的列表。当你给哈希赋值单个undef时，Perl会将其解析为仅含一个元素的列表。由于哈希要求键值成对，Perl会自动补充一个undef作为对应的值；而undef作为哈希键时会被转换为空字符串，这就导致%Hash3在循环开始前就已经存在一个空键。

修复方法 #

将哈希初始化代码改为直接声明空哈希即可：

my %Hash3;

修改后，%Hash3初始为空，循环中添加15个来自%Hash2的键，最终键数量会和%Hash2一致，不会出现额外的空键。

验证说明 #

你看到循环次数为15，但%Hash3键数为16，是因为空键是在循环执行前就被创建的，循环仅添加了15个有效键，两者相加导致总数为16。

修改后的完整代码片段 #

DO_SOMETHING(\%Hash1, \%Hash2);

sub DO_SOMETHING {
    my %Hash3;  # 修复：直接声明空哈希
    my $count = 0;
    my ($Hash1Ref, $Hash2Ref) = @_;
    my %Hash1 = %$Hash1Ref;
    my %Hash2 = %$Hash2Ref;
    my @Hash2keys = sort {$a <=> $b} keys %Hash2;
    print "Hash #2 keys = ", join (',', @Hash2keys), "\n";
    my $NumHash2keys = @Hash2keys;
    print "Number of Hash #2 keys = $NumHash2keys\n";
    print "Building new hash (Hash #3) using keys from Hash #2\n";
    foreach my $Hash2key (@Hash2keys) {
      $count ++;
      $Hash3{$Hash2key} = 1;  # 补充分号，保证代码规范
    }   

    print "Number of Hash #2 key iterations = $count\n";
    my @Hash3keys = keys %Hash3;
    print "Hash #3 keys = ", join (',', @Hash3keys), "\n";
    my $NumHash3keys = @Hash3keys;
    print "Number of Hash #3 keys = $NumHash3keys\n";
}

另外注意原代码中$Hash3{$Hash2key} = 1一行遗漏了分号，虽然Perl在某些情况下可以自动补全，但建议加上以保证代码规范。

内容的提问来源于stack exchange，提问作者Mark F