From 8e1e6bf7eba2d9cf4e6d1fdbe59e1e7c00295f72 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Tue, 20 Oct 2015 00:46:08 +0000
Subject: [PATCH] Add check to see if table exists, and skip ahead if it
 doesn't

svn path=/; revision=636
---
 interactome_scripts/supercluster.pl | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/interactome_scripts/supercluster.pl b/interactome_scripts/supercluster.pl
index ba14deb..dd986b2 100755
--- a/interactome_scripts/supercluster.pl
+++ b/interactome_scripts/supercluster.pl
@@ -88,6 +88,14 @@ my %big_count_hash;
 	
 my $num_species = @species;
 
+my @tables = $dbh->tables();
+my %table_hash;
+foreach my $table (@tables) {
+        my ($db,$table_name) = split ('`.`', $table);
+        $table_name =~ s/`$//;
+        $table_hash{$table_name} = $table_name;
+}
+
 for (my $i=0; $i<$num_species-1; $i++) {
 	print "Working on species: $species[$i]\n";
 	
@@ -109,13 +117,22 @@ for (my $i=0; $i<$num_species-1; $i++) {
 	#		$species_2 = $spec_temp;
 	#		print "non optimal order\n";
 	#	}
-		
-		
+	
+
 	
 		# create the statement handler to pull the species-pair data
 		my $spec_table = "$species_1" . "_" . "$species_2";
 		my $safe_species_table = $dbh->quote_identifier($spec_table);
+		
+		# Check to make sure table exists and skip if it doesn't
+		if(!defined($table_hash{$spec_table})) {
+				next;
+		}
+		
+		
 		my $sth = $dbh->prepare("select * from $safe_species_table");
+		
+		
 	
 		my $id_prev = "";
 	
-- 
2.34.1