Mercurial > repos > estrain > sum_fastqc

changeset 8:5a9a44e23dad draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author estrain
date Fri, 19 Oct 2018 14:23:35 -0400
parents 53bfb3b2c026
children b3d943bc70ae
files sum_fastqc.pl
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/sum_fastqc.pl	Thu Oct 18 22:04:04 2018 -0400
+++ b/sum_fastqc.pl	Fri Oct 19 14:23:35 2018 -0400
@@ -16,7 +16,7 @@
 $qscore=~s/\s+//g;
 my(@qlist)=split(/\,/,$qscore);
 
-print "Input\tFile\tFastQC\tPass-Fail\tReads\tPoor_Reads\tGC\%\tMax_N\%\tAvg_Len\tMean_Q";
+print "Input\tFile\tFastQC\tReads\tGC\%\tAvg_Len\tMax\_N\%\tMean_Q";
 foreach(@qlist) {
   print "\tQ".$_."\%";
 }
@@ -56,12 +56,10 @@
   print $inname."\t";
   print $fn[1]."\t";
   print $fastqc[1]."\t";
-  print $pass[1]."\t";
   print $nreads[1]."\t";
-  print $npoor[1]."\t";
   print $gc[1]."\t";
+  print meanlen($nreads[1],\@lenlines)."\t";
   print maxn(\@nlines)."\t";
-  print meanlen($nreads[1],\@lenlines)."\t";
   print readmean($nreads[1],\@qlines);
   foreach $qs (@qlist) {
     print "\t";