User Tools

Site Tools


Sidebar

This is the sidebar. Without it, the main text is too wide!

fillaccession.pl

This is an old revision of the document!


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.1528692922.txt.gz · Last modified: 2018/06/11 13:55 by hyjeong