perl null 或空检测

Question

我有一个包含匹配子字符串结果的哈希。如果字符串之间没有匹配，我想打印一条消息。我尝试了以下方法，但没有成功。

foreach (keys %d) { 
    if ($_ eq "") {
        print "no matches"; # and i've tried (if defined $_
    } else {
        print "$_\n";
    }
}

%d 是这样填充的（它包含匹配的子字符串）：

foreach (my $i=0;$i<length($seq1)-$k;$i+=1) { 
    my $common=substr($seq1,$i,$k); 
    if ($seq2=~/$common/) {
        $d{$common}++;
    }
}

Answer 1

我想我终于明白了你想要实现的目标。您认为检查 %d 中的键是否等于空字符串，则循环中没有匹配项。这是错误的。如果没有匹配项，则没有键，循环将永远不会执行。

不幸的是，您无法通过这种方式检查 %d 是否不包含任何值。你需要类似的东西：

unless (%d) { 
    print "No matches\n";
} else {
    print "$_\n" for keys %d;
}

Answer 2

您对所有现有键进行迭代并检查它们是否是空字符串，我想这不是您想要的。

尝试一下

if (defined $d{$_})

，或者如果它设置为“”，那么

if ($d{$_} eq "")

为了更有帮助，人们必须知道你的散列是如何填充的。

您还需要初始化不匹配的值。在您的代码中，您可以添加

if ($seq2=~/$common/) {
    $d{$common}++;
}
else 
{ $d{$common} = 0 unless (exists($d{common})); }

然后检查

if ($d{$_} > 0)