Mercurial > repos > big-tiandm > mirplant2
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]; } }