我有哈希，其中键的值是其他哈希。
示例：{‘key’=> {‘key2’=> {‘key3’=> ‘值’}}}
我如何迭代这个结构？
解决方法
这是你想要的吗？ (另)
sub for_hash {
my ($hash,$fn) = @_;
while (my ($key,$value) = each %$hash) {
if ('HASH' eq ref $value) {
for_hash $value,$fn;
}
else {
$fn->($value);
}
}
}
my $example = {'key' => {'key2' => {'key3' => 'value'}}};
for_hash $example,sub {
my ($value) = @_;
# Do something with $value...
};