Question

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

Answer 1

$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。

Answer 2

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

perl哈希 - 比较键和值

2 个答案: