Add progress indicator

svn path=/; revision=614

diff --git a/interactome_scripts/supercluster.pl b/interactome_scripts/supercluster.pl
index df5f2a0b1707922b27985c25ef1818a12ae0f8ca..ba14deb31fe1985706aa88aba8ec384e059b86ae 100755 (executable)
--- a/interactome_scripts/supercluster.pl
+++ b/interactome_scripts/supercluster.pl
@@ -89,6 +89,8 @@ my %big_count_hash;
 my $num_species = @species;
 
 for (my $i=0; $i<$num_species-1; $i++) {
+       print "Working on species: $species[$i]\n";
+       
        for (my $j=$i+1; $j<$num_species; $j++) {
                # hashes to store the paralogs and orthologs
                my (%species_1_gene_hash, %species_2_gene_hash);