Select Code to Download

Select or download this

gi1 VERSION cds1
gi2 VERSION cds2
.      .     .
.      .     .
.      .     .

Select or download this

#!/usr/bin/perl
use strict;
...

# Output any leftover information:
flush_info();

Select or download this

LOCUS       NC_0000230           600020 bp    DNA     linear   CON 21-
+APR-2007
VERSION     NC_000023.10  GI:123456789
     CDS             join(11111..222222,333333..444444)
...
     CDS             join(66666..7777777,888888..99999)
                     /db_xref="GI:10101010"
//

Select or download this

Ignoring unknown line [LOCUS       NC_0000230           600020 bp    D
+NA     linear   CON 21-APR-2007
]
...
    123456789    
55555555        join(11111..222222,333333..444444)
10101010        join(66666..7777777,888888..99999)

Select or download this

sub flush_info {
        # print out all information:
               next print "$info{gi}"."\t"."$info{version}"."\t"."$inf
+o{cds}\n" if ($info{gi} or $info{version} or $info{cds} eq undef;
        %info = ();
        };