comparison bin/align.pm @ 22:59c728d31244 draft

Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:44:09 -0400
parents 8ea13dab3435
children 36e45a7b3eff
comparison
equal deleted inserted replaced
21:b80aa719069f 22:59c728d31244
330 $numberM{$line[2]}->[3]++ if $seq[0] eq 'T'; 330 $numberM{$line[2]}->[3]++ if $seq[0] eq 'T';
331 } 331 }
332 else 332 else
333 { 333 {
334 $numberM{$line[2]}->[2]++; 334 $numberM{$line[2]}->[2]++;
335 $numberN{$line[2]}->[4]++ if $seq[9] eq 'A'; 335 $numberM{$line[2]}->[4]++ if $seq[9] eq 'A';
336 } 336 }
337 } 337 }
338 } 338 }
339 } 339 }
340 } 340 }