我一直在阅读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";
}
}
解决方法
$files {$key}确实会返回该键的值.但是如果在布尔上下文中该值恰好是假的,比如0或”(空字符串)怎么办？
考虑这样的哈希：
my %foo = ( red => 42,blue => 0,green => '',yellow => undef );
如果我要说if($foo {blue})条件会失败.即使哈希中存在蓝色,条件也是假的,因为$foo {blue}的值为零.与绿色和黄色键相同 – 空字符串和undef是错误值.
如果没有存在,就没有(简单的)方法来确定散列键实际上是否实际存在且其值是否为假,或者它根本不存在. (你可以调用键然后grep结果列表,但这太荒谬了.)
你的代码对我来说非常好.您正确使用存在.