default outfile

daisieh · Mar 18, 2015 · 6d75dd0 · 6d75dd0
1 parent 69b2660
commit 6d75dd0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/converting/gb_to_fasta.pl b/converting/gb_to_fasta.pl
@@ -24,6 +24,9 @@
 }
 
 my $gbdata = parse_genbank($gbfile);
+if ($outfile eq "") {
+	$outfile = "$gbfile.fasta";
+}
 
 open FH, ">", $outfile or die "couldn't create output file $outfile";
 print FH ">" . get_name() . "\n" . get_sequence() . "\n";