if ($#ARGV !=2) {
print "usage: association_file_from_orthologs.pl in_assoc_file ortho_file out_file\n";
exit;
-
+}
# Grab the find_species subroutines to get the species and taxon id
if(-e "$ENV{HOME}/scripts/jaiswallab/interactome_scripts/find_species.pl") {
#check if symbol found in %gene_hash
if(defined($ortho_hash{$db_obj_name})) {
my $ortho_gene = $ortho_hash{$db_obj_name};
- print OUTFILE "MaizeGDB\t$ortho_gene\t$ortho_gene\t$qual\t$ont_id\tPMID:24919147|PMID:21186353\tISO\tAGI_LocusCode:$db_obj_name\t$aspect\t$ortho_gene\t\t$db_obj_type\ttaxon:$new_taxon\t$curr_date\tPlanteome:Justin_Elser\t$annot_ext\t$gp_form_id\n";
+ print OUTFILE "EnsemblPlants\t$ortho_gene\t$ortho_gene\t$qual\t$ont_id\tPMID:24919147|PMID:21186353\tISO\tAGI_LocusCode:$db_obj_name\t$aspect\t$ortho_gene\t\t$db_obj_type\ttaxon:$new_taxon\t$curr_date\tPlanteome:Justin_Elser\t$annot_ext\t$gp_form_id\n";
}
}