为什么一个空的 Perl 散列只有一个键？

Question

“如何找出 Perl 中哈希值的大小？”的标准谷歌答案是“取keys(%hash)的大小”：

my %h = {};
print scalar (keys (%h));

这将打印“1”。我原以为是零。另一方面。同样，

my %h = {};
$h{"a"} = "b";
$h{"x"} = "y";
print scalar keys (%h);
print "\nKey: $_" for (keys %h);

打印：

3

键：a

键：x

密钥：哈希(0x229e8)

这个额外的值从哪里来？

Answer 1

$ perl -Mwarnings -e'my %h = {}'
Reference found where even-sized list expected at -e line 1.

严格 和

更好的是，也将 诊断 添加到组合中：

$ perl -Mwarnings -Mdiagnostics -e'my %h = {}'
Reference found where even-sized list expected at -e line 1 (#1)
    (W misc) You gave a single reference where Perl was expecting a list
    with an even number of elements (for assignment to a hash). This usually
    means that you used the anon hash constructor when you meant to use
    parens. In any case, a hash requires key/value pairs.

        %hash = { one => 1, two => 2, };    # WRONG
        %hash = [ qw/ an anon array / ];    # WRONG
        %hash = ( one => 1, two => 2, );    # right
        %hash = qw( one 1 two 2 );      # also fine

Answer 2

这也曾困扰过我。

my %h = ();

请注意使用 () 而不是 {}。

说明：值 {} 是对哈希的引用，而不是哈希本身。在 Perl 中，引用是一种标量值，对 %h 的赋值对于分配单个标量值有特殊的处理。它将标量字符串化（在您的情况下为您提供字符串 HASH(0x229e8)），并将该键与值 undef 相关联。

使用 () 时，从列表到哈希的赋值会根据列表中的对创建键/值对，并且由于 () 为空，因此哈希 %h 变为空。

Answer 3

{} 是对匿名哈希的引用。因此 my %h = {} 相当于我的 %h = ({} => undef)。

Perl 要求哈希键是字符串，因此当您使用引用作为键时，Perl 使用引用的字符串表示形式 (HASH(0x229e8))。

Answer 4

use Data::Dumper;

my %h = {};
warn Dumper \%h;

%h 被分配哈希引用作为键，undef 作为值。

输出：

$VAR1 = {
          'HASH(0x8683830)' => undef
        };

正如 rafl 所建议的，warnings pragma 会捕获这。
看看Greg Hewgill的答案以获取更正后的代码。