如何强制和错误未定义的哈希键？

Question

我正在尝试使用来自make perl shout when trying to access undefined hash key 的代码，但它不起作用。

我认为tie 在过去 10 年的工作方式发生了一些变化。

我得到的错误是：

Safe::Hash must define either a TIEHASH() or a new() method at /home/bennett/work/stock/Indicator.pm line 97.

我只需要它来处理我使用的大约 5% 的哈希值，并且我希望使用不会改变接口的东西（即$foo{bar}）。也就是说，我不想使用Moose 或涉及访问器方法的东西。

原因如下：我想将其打开以进行调试和开发，否则将其关闭。程序和计算机本身就足够慢了。

欢迎提供任何已修复的代码（参见上面的链接）或其他解决方案。

这是为 x86_64-Linux-thread-multi 构建的 Perl 5，版本 16，Subversion 3 (v5.16.3)

Answer 1

对于 不存在 散列键，它不同于存在但具有未定义值的散列键，您可以使用来自Hash::Util 的 lock_hash。请注意，它还限制任何值的更改。不幸的是，lock_keys 更接近您的要求，除非您尝试设置它，否则在访问不存在的密钥时不会导致错误。

use strict;
use warnings;
use Hash::Util 'lock_hash';
my %foo = (a => 1, b => 2);
lock_hash %foo;
print $foo{c}; # error

这与Const::Fast 用于只读哈希的底层机制相同，但它有点令人困惑，因为它试图同时充当只读（现有值无法更改）和受限（不存在的键）无法访问）。