如何在 Perl 中创建哈希的哈希？

Question

根据我目前对 Perl 中哈希值的理解，我希望这段代码能够打印“hello world”。它什么也不打印。

%a=();

%b=();
$b{str} = "hello";  
$a{1}=%b;

$b=();
$b{str} = "world";
$a{2}=%b;

print "$a{1}{str}  $a{2}{str}"; 

我假设哈希就像数组，那么为什么我不能让哈希包含另一个哈希呢？

Answer 1

1. 您应该始终使用“use strict;”在你的程序中。

2. 使用引用和匿名哈希。

use strict;use warnings;
my %a;

my %b;
$b{str} = "hello";  
$a{1}={%b};

%b=();
$b{str} = "world";
$a{2}={%b};

print "$a{1}{str}  $a{2}{str}";

{%b} 创建对哈希 %b 副本的引用。您需要在此处复制，因为稍后会清空它。

Answer 2

哈希值的哈希值第一次就很难正确。在这种情况下

$a{1} = { %b };
...
$a{2} = { %b };

，它将带您到达您想去的地方。

有关二维数据结构的详细信息，请参阅 perldoc perllol珀尔。

Answer 3

简短回答：哈希键只能与标量相关联，而不能与哈希相关联。为了做你想做的事，你需要使用参考。

我建议您阅读 perlreftut，而不是重新散列（呵呵）如何创建多级数据结构。 perlref 更完整，但一开始有点让人不知所措。

Answer 4

迈克，亚历山大的答案是正确的。

还有一个提示。如果你刚刚学习哈希，perl 有一个名为 Data::Dumper 的模块，它可以为你漂亮地打印你的数据结构，当你想检查你的数据结构有什么值时，这真的很方便。

use Data::Dumper;
print Dumper(\%a); 

当你打印这个时它会显示

$VAR1 = {
          '1' => {
                   'str' => 'hello'
                 },
          '2' => {
                   'str' => 'world'
                 }
        };

Answer 5

Perl 喜欢扁平化你的数据结构。这通常是一件好事......例如， (@options, "another option", "yet another") 最终成为一个列表。

如果您确实打算将一个结构放在另一个结构中，则内部结构需要作为参考。像这样：

%a{1} = { %b };  

大括号表示一个散列，您用 %b 中的值填充该散列，并作为引用而不是直接散列返回。

您也可以说

$a{1} = \%b;   

但这会使 %b 的更改也更改 $a{1} 。

Answer 6

我需要创建 1000 条员工记录来测试 T&A 系统。员工记录存储在哈希中，其中键是员工的身份号码，值是其姓名、出生日期和雇用日期等的哈希。以下是如何...

# declare an empty hash
%employees = ();

# add each employee to the hash
$employees{$identity} = {gender=>$gender, forename=>$forename, surname=>$surname, dob=>$dob, doh=>$doh};

# dump the hash as CSV
foreach $identity ( keys %employees ){
    print "$identity,$employees{$identity}{forename},$employees{$identity}{surname}\n";
}