comparison bin/align.pm @ 24:36e45a7b3eff draft

Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:53:26 -0400
parents 59c728d31244
children e26d3bee9348
comparison
equal deleted inserted replaced
23:6669c4f79cac 24:36e45a7b3eff
301 $number{$line[2]}->[1]++; 301 $number{$line[2]}->[1]++;
302 $number{$line[2]}->[3]++ if $seq[0] eq 'T'; 302 $number{$line[2]}->[3]++ if $seq[0] eq 'T';
303 } 303 }
304 else 304 else
305 { 305 {
306 $number{$line[2]}->[2]++ if $seq[9] eq 'A'; 306 $number{$line[2]}->[2]++
307 $number{$line[2]}->[4]++ if $seq[9] eq 'A';
307 } 308 }
308 if ($_ =~ /.*XM:i:(\d+).*/) 309 if ($_ =~ /.*XM:i:(\d+).*/)
309 { 310 {
310 if ( $1 == 0 ) 311 if ( $1 == 0 )
311 { 312 {