如何在Perl hash-of -hes中获取二级密钥？

Question

我需要在哈希中获取某个键的所有值.哈希看起来像这样:

$bean = {
     Key1 => {
               Key4 => 4,
               Key5 => 9,
               Key6 => 10,
             },
     Key2 => {
               Key7 => 5,
               Key8 => 9,
             },
};

我只需要值Key4,Key5并Key6为例子.其余的不是兴趣点.我怎么能得到价值观？

更新:所以我没有%bean我只是添加这样的值$bean:

 $bean->{'Key1'}->{'Key4'} = $value;

希望这可以帮助.

Answer 1

foreach my $key (keys %{$bean{Key1}})
{
  print $key . " ==> " . $bean{Key1}{$key} . "\n";
}

应该打印:

Key4 ==> 4
Key5 ==> 9
Key6 ==> 10