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;

Answer 2

私は次のような答えを見つけました

my %city ;

 $city{$c_name}{$street} = [ $name , $no_house , $senior];

私はこのように生成することができます

Answer 3

Perl Data Structures Cookbook のperldscが役に立つかもしれません。一般的なデータ構造を作成する方法を示す例があります。

Answer 4

my %city ;

押したいなら

push( @{ city{ $c_name } { $street } }, [ $name , $no_house , $senior] );

(0r)

push @{ city{ $c_name } { $street } }, [ $name , $no_house , $senior];