1.0 Extracts translation(s) from a Genbank or Embl entry C. Letondal extractcds extractcds perl "extractcds" 0 infile Entry (Genbank or Embl) perl " $value" 10 seqfile perl 1 entry_format Entry format (-f) Genbank Genbank Embl Embl perl ($value) ? " -f $value" : "" 1 show_location Show location in description (-l) perl ($value) ? " -l" : "" 1 show_product Show product in description (-p) perl ($value) ? " -p" : "" 1 show_gene Show gene in description (-g) perl ($value) ? " -g" : "" 1 seqsfile "extractcds.out" seqfile perl 1