diff filterReadsByLength.pl @ 50:7b5a48b972e9 draft

Uploaded
author big-tiandm
date Fri, 05 Dec 2014 00:11:02 -0500
parents ca05d68aca13
children
line wrap: on
line diff
--- a/filterReadsByLength.pl	Wed Dec 03 02:03:27 2014 -0500
+++ b/filterReadsByLength.pl	Fri Dec 05 00:11:02 2014 -0500
@@ -33,7 +33,7 @@
 		my @ss=split/_/,$1;
 		for (my $i=0;$i<@ss;$i++) {
 			$hash{length($seq)}[$i]++ if($ss[$i]>0);
-			$hash{length($seq)}[$i] +=0 if($ss[$i]>0);
+			$hash{length($seq)}[$i] +=0 if($ss[$i]==0);
 			$reads{length($seq)}[$i]+=$ss[$i];
 		}
 	}