如何找到哈希嵌套哈希的深度？

Question

我正在尝试编写一个 Perl 子例程来处理任何给定的哈希（通过引用传递），但我想让它成为一个通用的，以便我可以在任何地方使用它。

假设散列具有简单的键/值对并且不是详细记录（包含数组数组或散列数组），有没有办法找出散列的散列运行深度？

例如

my %stat = (
    1 => { one => "One is  one.",    two => "two is two"},
    2 => { one => "second val wone", two => "Seconv v"}
);

上面的哈希有一级键1，它有两个键one和two。所以它是一个有两个级别的哈希。

我的问题是，是否有任何方法可以测试并找到哈希有两个级别的信息？

---

评论更新

关于“让我相信我需要知道 Perl 哈希嵌套深度的问题”。这是我的情况。

1. 该程序正在创建一个三层的数据结构，并将其发布到一个文本文件中，以供其他脚本处理此发布的数据并执行其他操作。

2. 程序也在读取和散列其他五级数据结构，其中有与第一个点的散列相关的数据。

3. 该程序还在处理不断增长的日志文件并收集数据。

Answer 1

假设一个统一的哈希结构：

use strict;
use warnings;

sub depth {
    my ($h) = @_;
    my $d = 0;
    while () {
        return $d if ref($h) ne 'HASH';
        ($h) = values %$h;
        $d++;
    }
}

my %stat = (
    1 => { one => "One is  one.", two => "two is two"},
    2 => { one => "second val wone", two => "Seconv v"}
);

print depth(\%stat), "\n";

输出：

2

Answer 2

遍历哈希值和跟踪级别可以给出答案，

use strict;
use warnings;
use v5.16;

{ my $max;
sub hlevel {
    my ($h, $n) = @_;

    $max = 0 if !$n;
    $max = $n if $max < $n;
    __SUB__->($_, $n +1) for grep {ref eq "HASH"} values %$h;

    return $max;
}}

my %h;
$h{a}{b}{c}{d}{e} =1;
$h{a}{b}{c}{d}{e1}{f} =1;
$h{a}{b}{c}{d}{e1}{f1}{g} =1;
print hlevel(\%h, 0);

输出

6