string - perl中的子字符串比较

Question

我正在比较来自 2 个初始字符串 seq1 和 seq2 的 2 个子字符串 sub1 和 sub2 只允许一个mismatch $k 是子序列的长度

foreach (my $i = 0; $i < length($seq1) - $k; $i += 1) {
    my $sub1 = substr($seq1, $i, $k);
    foreach (my $j = 0; $j < length($seq2) - $k; $i++) {
        my $sub2 = substr($seq2, $j, $k);
        my $diff = $sub1 ^ $sub2;
        my $num_mismatch = $diff =~ tr/\0//c;
        if ($num_mismatch == 1) { 
            $d{$sub1}++;
        }
    }
}
foreach (keys %d) {
    print "$_\n";
}

*当我运行代码时，它会卡住，直到我终止进程并且它没有给出任何结果。有什么帮助吗？ *

Answer 1

foreach (my $j=0;$j<length($seq2)-$k;$i++)

应该是

foreach (my $j=0;$j<length($seq2)-$k;$j++)
                                   # ^^