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

我有一个复合hashref如下

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

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

@ {$ch-> {k1}} [0] – > {k} =’新值’;被允许 ！我如何完全锁定这样的hashref？

解决方法

根据 documentation：

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

你有哈希哈希数组