add_species.pl

#!/usr/bin/perl

use strict; use warnings;

use FileHandle;

my($file,$spe) = @ARGV;

my $in=FileHandle->new("< $file");

my $geneid;

while(<$in>){

chomp;

if($_=~/>/){

my @arr=split(/;/, $_);

$geneid=$arr[0].$spe;

print "$geneid\n";

}else{

print "$_\n";

}

}