branch-1-6/examples/db/use_registry.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 use Bio::DB::Registry;
   5 use Bio::SeqIO;
   6 use strict;
   7
   8 my $registry = new Bio::DB::Registry();
   9
  10 print "services are ", join(',', $registry->services), "\n";
  11 my $db = $registry->get_database("embl");
  12 my $seq = $db->get_Seq_by_id("J02231");
  13 my $out = new Bio::SeqIO;
  14 $out->write_seq($seq);