如何确定 Perl 哈希是否包含映射到未定义值的键？

Question

我需要确定 Perl 哈希是否具有给定的键，但该键将映射到 undef 值。具体来说，这样做的动机是查看在使用 getopt() 时是否有布尔标志以及传入的哈希引用。我已经搜索过这个网站和谷歌，并且 exists() 和 define() 似乎不适用于这种情况，他们只是看看值是否对于给定的密钥未定义，他们不会检查哈希是否确实具有该密钥。如果我是 RTFM，请给我指点解释这一点的手册。

Answer 1

exists() 和 Defined() 似乎不适用于这种情况，它们只是查看给定键的值是否未定义，它们不检查哈希是否确实具有该键

不正确的键。这确实是 define() 所做的，但是 exists() 正是您想要的：

my %hash = (
    key1 => 'value',
    key2 => undef,
);

foreach my $key (qw(key1 key2 key3))
{
    print "\$hash{$key} exists: " . (exists $hash{$key} ? "yes" : "no") . "\n";
    print "\$hash{$key} is defined: " . (defined $hash{$key} ? "yes" : "no") . "\n";
}

产生：

$hash{key1} exists: yes
$hash{key1} is defined: yes
$hash{key2} exists: yes
$hash{key2} is defined: no
$hash{key3} exists: no
$hash{key3} is defined: no

这两个函数的文档可以在命令行中找到 < code>perldoc -f 已定义 和 perldoc -f 存在（或阅读 perldoc perlfunc* 中所有方法的文档）。官方网络文档在这里：

• http://perldoc.perl.org/functions/exists.html< /a>
• http://perldoc.perl.org/functions/define.html

* _{由于您特别提到了 RTFM 并且您可能不知道 Perl 文档的位置，因此我还要指出您可以在 perldoc perl 或 at http://perldoc.perl.org。}

Answer 2

如果我正确地阅读了您的问题，我认为您对 exists 感到困惑。从文档中：

存在 EXPR

给定一个指定a的表达式
哈希元素或数组元素，返回
true 如果指定元素在
哈希或数组曾经是
已初始化，即使相应的
值未定义。

例如：

use strict;
use warnings;

my %h = (
    foo => 1,
    bar => undef,
);

for my $k ( qw(foo bar baz) ){
    print $k, "\n" if exists $h{$k} and not defined $h{$k};
}

Answer 3

简短回答：

 if ( exists $hash{$key} and not defined $hash{$key} ) {
    ...
 }