perl - 如何改进 Perl 中 lock_keys 的使用？

Question

我正在使用 Hash::Util 的 lock_keys 在尝试访问散列中不存在的 key 时死机。

1. 有时我的哈希很深(哈希哈希的哈希...)。有没有一次锁定它们的快速方法？

2. 是否可以控制 失败时的默认消息(即 添加未找到 key 的哈希转储)

Answer 1

1. lock_hash_recurse

2. 捕获异常，然后根据需要转储并重新抛出。

---

use Try::Tiny;
try {
    $hash{key} = 123; # illegal modification
} catch {
    use DDS; DumpLex \%hash;
    die $_;
}