Mercurial > repos > jdv > porechop

comparison porechop_summarize.pl @ 3:80408ff0c1f5 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
parents
children 64fcb9c72e47
comparison
equal deleted inserted replaced
2:f84a33bc5c3e 3:80408ff0c1f5
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5 use 5.012;
6
7 my $flag = 0;
8 my $table;
9
10 while (my $line = <STDIN>) {
11
12 print STDERR $line;
13
14 if ($line =~ /Barcode\s+Reads\s+Bases\s+File/) {
15 $flag = 1;
16 }
17 next if (! $flag);
18
19 $table .= $line;
20
21 }
22
23 $table =~ s/(^\s+|\e\[\d+m)//gms;
24 say $table;
25
26 exit;
27