Mercurial > repos > lionelguy > spades
diff tools/spades_2_5/spades.pl @ 7:95ddc2380130 draft
Uploaded
author | lionelguy |
---|---|
date | Thu, 28 Nov 2013 05:29:32 -0500 |
parents | b5ce24f34dd7 |
children |
line wrap: on
line diff
--- a/tools/spades_2_5/spades.pl Thu Sep 12 07:49:07 2013 -0400 +++ b/tools/spades_2_5/spades.pl Thu Nov 28 05:29:32 2013 -0500 @@ -76,9 +76,8 @@ while (<FASTA>){ next unless /^>/; chomp; - my @a = split(/\s/, $_); - my ($NODE, $n, $LENGTH, $l, $COV, $cov) = split(/_/, $a[0]); - die "Not all elements found in $_\n" unless ($n && $l && $cov); + die "Not all elements found in $_\n" if (! m/^>NODE_(\d+)_length_(\d+)_cov_(\d+\.*\d*)_/); + my ($n, $l, $cov) = ($1, $2, $3); print TAB "NODE_$n\t$l\t$cov\n"; } close TAB;