문자열 비교

Question

는 임 시퀀스의 길이가 두 문자열 sub1 단 하나의 불일치 $k 수 있도록이 초기 문자열 seq1 및 seq2에서 sub2 비교에 작업하는

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++) 
            # ^^