哈希问题的 Perl 哈希

Question

我在这里看到了令人作呕的类似问题，但没有一个能具体回答我自己的问题。

我正在尝试以编程方式创建哈希的哈希。我的问题代码如下:

my %this_hash = ();
if ($user_hash{$uuid})
{
    %this_hash = $user_hash{$uuid};
}

$this_hash{$action} = 1;

$user_hash{$uuid} = %this_hash;
my %test_hash = $user_hash{$uuid};
my $hello_dumper = Dumper \%this_hash;

根据我的输出，$this_hash 被正确分配但是

$user_hash{$uuid} = %this_hash

在调试器中显示 1/8 的值；不知道他的意思。我还收到一条警告:“哈希分配中元素的奇数...”

Answer 1

任何时候你写

%anything = $anything

你做错了什么。几乎任何时候你写

$anything = %anything

你做错了什么。这包括当 $anything 是数组或哈希访问时(即 $array[$index] 或 $hash{$key})。存储在数组和散列中的值始终是标量，而数组和散列本身不是标量。所以，当你想在一个散列中存储一个散列时，你可以存储一个对它的引用:$hash{$key} =\%another_hash。当您想要访问存储在散列中的散列时，您可以取消引用:%another_hash = %{ $hash{$key} } 或 $hashref = $hash {$键}； $value = $hashref->{ $another_key } 或 $value = $hash{$key}{$another_key}。

为了快速了解引用资料，我强烈建议阅读 Perl References Tutorial和 Perl Data Structures Cookbook .