Galaxy |

Changeset 8:5a9a44e23dad (2018-10-19)

Previous changeset 7:53bfb3b2c026 (2018-10-18) Next changeset 9:b3d943bc70ae (2022-02-23)

Commit message:
Uploaded

modified:
sum_fastqc.pl

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";