Mercurial > repos > jdv > porechop

diff porechop_summarize.pl @ 3:80408ff0c1f5 draft
planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/porechop commit 2a0c81f39a2d50819a327cb889f336b136612d60
author: jdv
date: Sat, 14 Oct 2017 22:23:22 -0400
children: 64fcb9c72e47
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/porechop_summarize.pl	Sat Oct 14 22:23:22 2017 -0400
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.012;
+
+my $flag = 0;
+my $table;
+
+while (my $line = <STDIN>) {
+
+    print STDERR $line;
+
+    if ($line =~ /Barcode\s+Reads\s+Bases\s+File/) {
+        $flag = 1;
+    }
+    next if (! $flag);
+
+    $table .= $line;
+
+}
+
+$table =~ s/(^\s+|\e\[\d+m)//gms;
+say $table;
+
+exit;
+