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;