# HG changeset patch
# User estrain
# Date 1539973415 14400
# Node ID 5a9a44e23dad6994fea7f79a95a60b9aba6305fd
# Parent  53bfb3b2c026d3050a3c483f6d8f1e5923226cd8
Uploaded

diff -r 53bfb3b2c026 -r 5a9a44e23dad sum_fastqc.pl
--- 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";