Mercurial > repos > brasset_jensen > srnapipe

comparison bin/align.pm @ 25:e26d3bee9348 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:55:43 -0400
parents 36e45a7b3eff
children c8090766c3f5
comparison
equal deleted inserted replaced
24:36e45a7b3eff 25:e26d3bee9348
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]++ 306 $number{$line[2]}->[2]++;
307 $number{$line[2]}->[4]++ if $seq[9] eq 'A'; 307 $number{$line[2]}->[4]++ if $seq[9] eq 'A';
308 } 308 }
309 if ($_ =~ /.*XM:i:(\d+).*/) 309 if ($_ =~ /.*XM:i:(\d+).*/)
310 { 310 {
311 if ( $1 == 0 ) 311 if ( $1 == 0 )