perl - 如何在 Perl 中创建散列的散列？

Question

我是 Perl 的新手。我需要在 Perl 中定义一个如下所示的数据结构:

  city 1 -> street 1 - [ name , no of house , senior people ]
            street 2 - [ name , no of house , senior people ]


  city 2 -> street 1 - [ name , no of house , senior people ]
            street 2 - [ name , no of house , senior people ]

我怎样才能做到这一点？

Answer 1

这是另一个使用哈希引用的示例:

my $data = {
    city1 => {
        street1 => ['name', 'house no', 'senior people'],
        street2 => ['name','house no','senior people'],
    },
    city2 => {
        street1 => etc...
        ...
    }
};

然后，您可以通过以下方式访问数据:

$data->{'city1'}{'street1'}[0];

或者:

my @street_data = @{$data->{'city1'}{'street1'}};
print @street_data;