From: elserj <elserj@localhost>
Date: Tue, 16 Dec 2014 23:35:39 +0000 (+0000)
Subject: Fix file handle name and wildcard db query
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=2a80029f292f9f64a2649b1ef100ea48943c4c27;p=old-jaiswallab-svn%2F.git

Fix file handle name and wildcard db query

svn path=/; revision=595
---

diff --git a/interactome_scripts/make_fasta_from_gene_list.pl b/interactome_scripts/make_fasta_from_gene_list.pl
index 45be6a4..bcfe43c 100755
--- a/interactome_scripts/make_fasta_from_gene_list.pl
+++ b/interactome_scripts/make_fasta_from_gene_list.pl
@@ -31,18 +31,18 @@ my $safe_species = $dbh->quote_identifier($species);
 
 my $sth_get_sequence = $dbh->prepare("select sequence from $safe_species where gene_id like ?");
 
-open(outputfh, ">$ARGV[2]");
+open(OUTPUTFH, ">$ARGV[2]");
 
 foreach my $gene (@genes) {
-	$sth_get_sequence->execute($gene);
-	print outputfh ">$gene\n";
+	$sth_get_sequence->execute($gene . "%");
+	print OUTPUTFH ">$gene\n";
 	while (my @line = $sth_get_sequence->fetchrow_array) {
 		my $line = $line[0];
 		my $len = length($line);
 		for (my $pos=0; $pos < $len; $pos+=80) {
-			print outputfh substr($line, $pos, 80), "\n";
+			print OUTPUTFH substr($line, $pos, 80), "\n";
 		}
 	}
 }
-close(outputfh);
+close(OUTPUTFH);