$species = "Hordeum_vulgare";
}elsif ($temp =~ /Jatropha/) {
$species = "Jatropha_curcas";
+ }elsif ($temp =~ /Kalanchoe\_laxiflora/) {
+ $species = "Kalanchoe_laxiflora";
}elsif ($temp =~ /Laccaria/) {
$species = "Laccaria_bicolor";
}elsif ($temp =~ /Leersia\_perrieri/) {
}elsif ($species eq "Jatropha_curcas") {
my ($gene_id, $temp) = split(/\s/,$gene_header);
$gene = $gene_id;
+ }elsif ($species eq "Kalanchoe_laxiflora") {
+ my ($gene_id, $peptide, $locus, $ID, $annot) = split(/\s/,$gene_header);
+ $gene = $gene_id;
}elsif ($species eq "Laccaria_bicolor") {
my ($source,$spec,$gene_id,$scaffold) = split(/\|/, $gene_header);
$gene = $gene_id;
$gene_id =~ s/gene\://;
$peptide =~ s/\:pep//;
$synonym = "$peptide,$gene_id";
+ }elsif ($species eq "Kalanchoe_laxiflora") {
+ my ($gene_id, $peptide, $locus, $ID, $annot) = split(/\s/,$gene_header);
+ $peptide =~ s/polypeptide\=//;
+ $locus =~ s/locus\=//;
+ $ID =~ s/ID\=//;
+ $synonym = "$peptide,$locus,$ID";
}elsif ($species eq "Linum_usitatissimum") {
my ($transcript,$gene_id) = split(/\|/, $gene_header);
$synonym = $transcript;
push (@spec_array, "Homo_sapiens");
push (@spec_array, "Hordeum_vulgare");
push (@spec_array, "Jatropha_curcas");
+ push (@spec_array, "Kalanchoe_laxiflora");
push (@spec_array, "Laccaria_bicolor");
push (@spec_array, "Linum_usitatissimum");
push (@spec_array, "Magnaporthe_grissa");