perl - 如何从散列的散列中提取键名？

Question

我有以下哈希值:

%HoH = (
flintstones => {
    husband   => "fred",
    pal       => "barney",
},
jetsons => {
    husband   => "george",
    wife      => "jane",
    his boy => "elroy", 
},
simpsons => {
    husband   => "homer",
    wife      => "marge",
    kid       => "bart",
},

);

如何迭代每个内部哈希(例如打火石)并提取每个此类迭代的键名(丈夫、 friend )和相应的值？

Answer 1

for my $k (keys %{ $HoH{flintstones} }) {

  my $v = $HoH{flintstones}{$k};
  print "key is $k; value is $v\n";
}

另一种方法是使用each

while( my($k, $v) = each %{ $HoH{flintstones} }) { ... }