perl - 如何获得 Perl 哈希中的二级 key ？

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