extract_acetolactate_sequences_II.pl

#! /usr/bin/perl
use strict;

use Bio::DB::Query::GenBank;
use Bio::DB::GenBank;
   
   my $query_string = '(acetolactate synthase[All Fields] AND "green plants"[porgn]) AND "flowering plants"[porgn] AND "complete cds"[All Fields]';
   my $query = Bio::DB::Query::GenBank->new(-db => 'nucleotide', -query => $query_string);

   print "Number of entries: ", $query->count,"\n";

   # get a Genbank database handle
   my $gb = Bio::DB::GenBank->new();
   my $stream = $gb->get_Stream_by_query($query);

   while (my $seq = $stream->next_seq) {
      print "Sequence ",$seq->id, "\n";
   }



//////////////////////////////////////////////////////////////


Number of entries: 109
Sequence GU192448
Sequence EU711282
Sequence EU711280
Sequence EU711279
Sequence EU548086
Sequence EU548085
Sequence EU548084
Sequence EU548083
Sequence AY103307
Sequence AF363370
Sequence AF363369
Sequence HM854301
Sequence ASU55852
Sequence XSU16280
Sequence XSU16279
Sequence BNAALS2
Sequence NC_008395
Sequence NM_001053466
Sequence HM006705
Sequence NM_114714
Sequence BT062296
Sequence EU517499
Sequence EU517498
Sequence EU517497
Sequence EU517496
Sequence EU517494
Sequence EU517491
Sequence EU517490
Sequence EU517489
Sequence EU517488
Sequence EU517487
Sequence EU517483
Sequence EU517482
Sequence EU517481
Sequence EU517478
Sequence EU517476
Sequence EU517474
Sequence EU517472
Sequence EU517471
Sequence EU517470
Sequence EU517467
Sequence EU517466
Sequence EU517465
Sequence AF094326
Sequence DQ516981
Sequence DQ516980
Sequence DQ516979
Sequence DQ516978
Sequence DQ516977
Sequence GU377313
Sequence BT068893
Sequence FJ715633
Sequence EU616547
Sequence AY885674
Sequence BT021989
Sequence BT020540
Sequence AY428880
Sequence AY428879
Sequence AY428947
Sequence AY124092
Sequence AY058881
Sequence AY042819
Sequence AB513331
Sequence NM_180498
Sequence NM_179842
Sequence NM_179841
Sequence NM_121744
Sequence NM_121634
Sequence NM_179843

--------------------- WARNING ---------------------
MSG: Unbalanced quote in:
/note="detected by RepeatMasker; TIGR Oryza Repeat
0No further qualifiers will be added for this feature
---------------------------------------------------

--------------------- WARNING ---------------------
MSG: Unexpected error in feature table for  Skipping feature, attempting to recover
---------------------------------------------------
Sequence AP008208