如何遍历Perl中的Hash(Hash)？

发布时间：2020-12-15 21:18:47 所属栏目：大数据来源：网络整理

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

我有哈希，其中键的值是其他哈希。

示例：{‘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...
};

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!