perl - perl で 2 つのファイルを比較し、不一致を見つけます

Question

2 つのファイルを読み取って比較しようとしました。

file1 : ああああああああ

file2: あああああああああ

出力: MMMMNMMMMM

open(my $fh1, '<', 'file1');

open(my $fh2, '<', 'file2');


while(
    defined(my $line1 = <$fh1>)
    and
    defined(my $line2 = <$fh2>)
    ){
    chomp $line1;
    chomp $line2;
    my @line1 = split(//, $line1);
    my @line2 = split(//, $line2);  
        for my $i (0 ..@line1-1){
            for my $j (0 .. @line2-1){
                if ($line1[$i] eq $line2[$j]){      
                    print "M\";}        

                    else {          
                    print "N";} 
        $j++;}
        $i++;}}

close $fh1;
close $fh2;

出力を繰り返し印刷します!! 誰かが私を助けてくれれば、それは大きな助けになるでしょう。

Answer 1

for1 行に 1 つのループだけが必要です。

my $max = $#line1 > $#line2 ? $#line1 : $#line2;
for my $i (0 .. $max) {
  if ($line1[$i] eq $line2[$i]) { print "M";}
  else                          { print "N";} 
}