Added subroutine to output all species in an array (useful for superclusters.pl,...

svn path=/; revision=39

diff --git a/interactome_scripts/find_species.pl b/interactome_scripts/find_species.pl
index 2b39b4403a8bd31f8dcfaea42262b838035d9b55..ae21489e475e3c7cd573744430fc5f7912e823ac 100755 (executable)
--- a/interactome_scripts/find_species.pl
+++ b/interactome_scripts/find_species.pl
@@ -220,4 +220,49 @@ sub find_gene {
        return $gene;
 }
 
+sub all_species_array {
+       # return all species in an array
+       my @spec_array;
+       push (@spec_array, "Arabidopsis_lyrata");
+       push (@spec_array, "Arabidopsis_thaliana");
+       push (@spec_array, "Batrachochytrium_distachyon");
+       push (@spec_array, "Brachypodium_distachyon");
+       push (@spec_array, "Caenorhabditis_elegans");
+       push (@spec_array, "Carica_papaya");
+       push (@spec_array, "Chlamydomonas_reinhardtii");
+       push (@spec_array, "Cucumis_sativus");
+       push (@spec_array, "Danio_rerio");
+       push (@spec_array, "Drosophila_melanogaster");
+       push (@spec_array, "Ectocarpus_siliculosus");
+       push (@spec_array, "Escherichia_coli");
+       push (@spec_array, "Fragaria_vesca");
+       push (@spec_array, "Glycine_max");
+       push (@spec_array, "Homo_sapiens");
+       push (@spec_array, "Laccaria_bicolor");
+       push (@spec_array, "Magnaporthe_grissa");
+       push (@spec_array, "Manihot_esculenta");
+       push (@spec_array, "Medicago_truncatula");
+       push (@spec_array, "Mimulus_guttatus");
+       push (@spec_array, "Mus_musculus");
+       push (@spec_array, "Neurospora_crassa");
+       push (@spec_array, "Nostoc_punctiforme");
+       push (@spec_array, "Oryza_sativa");
+       push (@spec_array, "Pediculus_humanus");
+       push (@spec_array, "Physcomitrella_patens");
+       push (@spec_array, "Populus_trichocarpa");
+       push (@spec_array, "Prunus_persica");
+       push (@spec_array, "Rattus_norvegicus");
+       push (@spec_array, "Rhizopus_oryzae");
+       push (@spec_array, "Ricinus_communis");
+       push (@spec_array, "Saccharomyces_cerevisiae");
+       push (@spec_array, "Schizosaccharomyces_pombe");
+       push (@spec_array, "Selaginella_moellendorffii");
+       push (@spec_array, "Sorghum_bicolor");
+       push (@spec_array, "Synechocystis_pcc6803");
+       push (@spec_array, "Trichodesmium_erythraeum");
+       push (@spec_array, "Vitis_vinifera");
+       push (@spec_array, "Zea_mays");
+       
+       return @spec_array;
+}
 1;