迭代perl中的散列键

Question

我有一个像下面这样的哈希。

(
    'cars' => {
        'citroen' => {
            'sedan'    => { 'color' => 'red'   },
            'hatchback => { 'color' => 'white' },
            'truck'    => { 'color' => 'black' },
        },
        'ford' => {
            'sedan'    => { 'color' => 'red'   },
            'hatchback => { 'color' => 'white' },
            'truck'    => { 'color' => 'black' },
        },
    },
)

汽车版本是轿车，掀背车和卡车我想获得这些版本并迭代它们。如果轿车做....如果掀背做......如果卡车做.... ....

我试过了：

foreach my $key ( keys %{ $myhash->{'cars'}->{$carCompany} } ) { 
    print "\nCarVersion:" . $key;
}

但我无法获得这些版本。

Answer 1

我解决了。

foreach my $key (keys %{$myhash->{'cars'}->{'ford'}}) { print $key."\n"; }

这给出了：

sedan
hatchback
truck

这是我想要的输出。