perl哈希 - 比较键和值

时间:2010-04-18 07:47:31

标签: perl

我一直在阅读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";
    }
}

2 个答案:

答案 0 :(得分:9)

$files{$key}确实会返回该键的值。但是如果在布尔上下文中该值恰好是假的,比如0''(一个空字符串)呢?

考虑这样的哈希:

my %foo = ( red => 42, blue => 0, green => '', yellow => undef );

如果我说if ( $foo{blue} ),病情就会失败。即使哈希中存在blue,条件也是假的,因为$foo{blue}的值为零。与greenyellow键相同 - 空字符串和undef都是错误值。

如果没有exists,就没有(简单的)方法来确定散列键实际上是否实际存在且其值为false,或者它是否完全不存在。 (您可以调用keys然后grep调出结果列表,但这太荒谬了。)

您的代码对我来说非常好。您正确使用exists

答案 1 :(得分:3)

exists $hash{key}表示如果密钥存在,defined $hash{key}表示如果密钥存在且其值已定义,则$hash{key}表示密钥是否存在且其值是否为真(请参阅{{3 }})。