我一直在阅读perl doc,但我无法理解哈希。我试图找出是否存在哈希键,如果存在,则比较其值。让我感到困惑的是,我的搜索结果表明您在if (exists $files{$key})
找到了密钥是否存在,但$files{$key}
也给出了值?我正在处理的代码是:
foreach my $item(@new_contents) {
next if !-f "$directory/$item";
my $date_modified = (stat("$directory/$item"))[9];
if (exists $files{$item}) {
if ($files{$item} != $date_modified {
$files{$item} = $date_modified;
print "$item has been modified\n";
}
} else {
$files{$item} = $date_modified;
print "$item has been added\n";
}
}
答案 0 :(得分:9)
$files{$key}
确实会返回该键的值。但是如果在布尔上下文中该值恰好是假的,比如0
或''
(一个空字符串)呢?
考虑这样的哈希:
my %foo = ( red => 42, blue => 0, green => '', yellow => undef );
如果我说if ( $foo{blue} )
,病情就会失败。即使哈希中存在blue
,条件也是假的,因为$foo{blue}
的值为零。与green
和yellow
键相同 - 空字符串和undef
都是错误值。
如果没有exists
,就没有(简单的)方法来确定散列键实际上是否实际存在且其值为false,或者它是否完全不存在。 (您可以调用keys
然后grep
调出结果列表,但这太荒谬了。)
您的代码对我来说非常好。您正确使用exists
。
答案 1 :(得分:3)
exists $hash{key}
表示如果密钥存在,defined $hash{key}
表示如果密钥存在且其值已定义,则$hash{key}
表示密钥是否存在且其值是否为真(请参阅{{3 }})。