[Bioperl-l] Genbank to ACEDB?

[Joseph Bedell]

Hi All,

Can anyone help with a script to convert GenBank files, with annotation,
into ACEDB format? I found the following script in the list archives, but
this only generates an ACEDB sequence object and ignores annotation.

my $seqin = Bio::SeqIO->new(-fh => \*STDIN, -format => 'genbank');
my $seqout = Bio::SeqIO->new(-fh => \*STDOUT, -format => 'ace');
while(my $seq = $seqin->next_seq()) { $seqout->write_seq($seq); }

Thanks,
Joey

~~~~~~~~~~~~~~~~~~~~~~~~~
Joseph A Bedell, Ph.D.
Director, Bioinformatics
Orion Genomics, LLC
4041 Forest Park Ave.
St. Louis, MO 63108
(314)615-6979; fax:(314)615-6975
http://www.oriongenomics.com
~~~~~~~~~~~~~~~~~~~~~~~~~

NOTICE: The information contained in this electronic mail message 
and any attachments hereto is intended only for the personal and 
confidential use of the designated recipients.  This message and 
any attachments hereto is privileged and confidential.  If the 
reader of this message and any attachments Hereto is not the intended
recipient or an agent responsible for delivering it To the intended
recipient, you are hereby notified that you have received this document
in error, and that any review, dissemination, distribution, or copying
of this message or any attachments hereto is strictly prohibited. If you 
have received this communication in error, please notify our offices 
immediately by Telephone (314.615.6977), and by electronic mail at 
jbedell@oriongenomics.com 
Thank you!