如何获取 Perl hash-of-hashes 中的二级密钥？

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

Answer 2

如果 %bean 是哈希值的哈希值，则 $bean{Key1} 是哈希引用。要像操作简单哈希一样操作哈希引用，您需要取消引用它，如下所示：

%key1_hash = %{$bean{Key1}};

要访问哈希的哈希中的元素，请使用如下语法：

$element = $bean{Key1}{Key4};

因此，这是一个打印键和值的循环对于 $bean{Key1}：

print $_, '=>', $bean{Key1}{$_}, "\n" for keys %{$bean{Key1}};

或者如果您只需要值，不需要键：

print $_, "\n" for values %{$bean{Key1}};

请参阅以下 Perl 文档以了解有关使用复杂数据结构的更多详细信息：perlreftut, perldsc 和 perllol。

Answer 3

还有一个解决方案：

for my $sh ( values %Bean ) {
    print "$_ => $sh->{$_}\n" for grep exists $sh->{$_}, qw(Key4 Key5 Key6);
}

Answer 4

请参阅 Perl 数据结构手册，了解使用 Perl 数据结构的大量示例。

Answer 5

做到这一点的一个好方法 - 假设您发布的内容是一个示例，而不是一个单一的案例 - 将是 递归地。因此，我们有一个函数，它可以在哈希中搜索我们指定的键，如果发现其中一个值是对另一个哈希的引用，则调用自身。

sub recurse_hash {
  # Arguments are a hash ref and a list of keys to find
  my($hash,@findkeys) = @_;

  # Loop over the keys in the hash
  foreach (sort keys %{$hash}) {

    # Get the value for the current key
    my $value = $hash->{$_};

    # See if the value is a hash reference
    if (ref($value) eq 'HASH') {
      # If it is call this function for that hash
      recurse_hash($value,@findkeys);
    }

    # Don't use an else in case a hash ref value matches our search pattern
    for my $key (@findkeys) {
      if ($key eq $_) {
        print "$_ = $value\n";
      }
    }
  }
}

# Search for Key4, Key5 and Key6 in %Bean
recurse_hash(\%Bean,"Key4","Key5","Key6");

给出这个输出：

Key4 = 4
Key5 = 9
Key6 = 10