Mercurial > repos > brasset_jensen > srnapipe
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 { |