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

Question

我有一个复合hashref如下

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

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

@{$ch->{k1}}[0]->{k} = 'New value';被允许 !我如何完全锁定这样的hashref？

Answer 1

根据文件:

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

你有哈希哈希数组