comparison porechop_summarize.pl @ 3:80408ff0c1f5 draft

planemo upload for repository https://github.com/jvolkening/galaxy-tools/tree/master/tools/porechop commit 2a0c81f39a2d50819a327cb889f336b136612d60

3:80408ff0c1f5

#!/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;