perl哈希 – 比较键和值

发布时间：2020-12-16 06:07:39 所属栏目：大数据来源：网络整理

导读：我一直在阅读perl doc,但我无法理解哈希.我试图找出是否存在哈希键,如果存在,则比较其值.令我困惑的是,我的搜索说你发现if(exists $files {$key})是否存在密钥,但是$files {$key}也给出了值？我正在处理的代码是： foreach my $item(@new_contents) { next i

我一直在阅读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 modifiedn";
        }
    } else {
        $files{$item} = $date_modified;
        print "$item has been addedn";
    }
}

解决方法

$files {$key}确实会返回该键的值.但是如果在布尔上下文中该值恰好是假的,比如0或”(空字符串)怎么办？

考虑这样的哈希：

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

如果我要说if($foo {blue})条件会失败.即使哈希中存在蓝色,条件也是假的,因为$foo {blue}的值为零.与绿色和黄色键相同 – 空字符串和undef是错误值.

如果没有存在,就没有(简单的)方法来确定散列键实际上是否实际存在且其值是否为假,或者它根本不存在. (你可以调用键然后grep结果列表,但这太荒谬了.)

你的代码对我来说非常好.您正确使用存在.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!