perl 哈希 - 比较键和值

Question

我一直在阅读 perl 文档，但我不太了解哈希。我正在尝试查找哈希键是否存在，如果存在，则比较其值。让我感到困惑的是，我的搜索结果表明您可以通过 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";
    }
}

Answer 1

$files{$key}确实会返回该键的值。但是如果该值在 bool 上下文中恰好为 false 呢，例如 0或 '' (空字符串)？

考虑这样的哈希:

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

如果我说 if ( $foo{blue} )条件会失败。即使 blue散列中存在，条件为假，因为 $foo{blue}的值为零。与 green 相同和 yellow键 -- 空字符串和 undef是假值。

无 exists ，将没有(简单的)方法来确定散列键是否确实存在且其值为假，或者根本不存在。 (你可以先调用 keys 然后再调用 grep 结果列表，但这很荒谬。)

你的代码在我看来非常好。您正在使用 exists正确。