add_species.pl
2020-04-16 本文已影响0人
我想养只猫zhl
#!/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";
}
}
