fillaccession.pl
fillAccession.pl
#!/usr/bin/perl # while (<>) { chomp; if (/^LOCUS\s+([^\s]+)\s+/) { $acc = $1; $ver = $1 . '.1'; print $_, "\n"; } elsif (/^ACCESSION/) { print "ACCESSION $acc\n"; } elsif (/^VERSION/) { print "VERSION $ver\n"; } else { print $_, "\n"; } }
fillaccession.pl.txt · Last modified: 2021/03/17 13:09 by 127.0.0.1