perl - 是否有复合哈希的 Hash::Util 替代方案？

Question

我有一个复合哈希引用，如下

my $ch = {
    k1 => [ { k=>1 }, { m=>2 } ],
    k2 => [ { l=>90}, ... ],
};

Hash::Util::lock_hashref_recurse($ch) 无法有效锁定这些值..

@{$ch->{k1}}[0]->{k} = '新值'; 是允许的!我如何完全锁定这样的哈希引用？

Answer 1

根据documentation :

此方法仅递归到由另一个哈希引用的哈希。因此，哈希的哈希 (HoH) 将全部受到限制，但哈希数组的哈希 (HoAoH) 将仅限制顶部哈希。

你有一个哈希数组的哈希