string - 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;
}