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

Uploaded
author brasset_jensen
date Sun, 13 May 2018 15:53:26 -0400
parents 59c728d31244
children e26d3bee9348
line wrap: on
line diff
--- a/bin/align.pm	Sun May 13 15:46:36 2018 -0400
+++ b/bin/align.pm	Sun May 13 15:53:26 2018 -0400
@@ -303,7 +303,8 @@
         } 
         else 
         { 
-          $number{$line[2]}->[2]++ if $seq[9] eq 'A';
+          $number{$line[2]}->[2]++
+          $number{$line[2]}->[4]++ if $seq[9] eq 'A';
         } 
     	 	if ($_ =~ /.*XM:i:(\d+).*/)
     	 	{