[Bioperl-l] How to print get_available_databases?

[Peng Yu]

Hi,

I want to print get_available_databases using foreach. But it prints
all 1's. I know that this is a perl question. But I still ask it here
because people on a more general perl mailing may not have bioperl
installed.

use strict;
use warnings;

use Bio::DB::EUtilities;

my $factory = Bio::DB::EUtilities->new(-eutil => 'einfo',  -email =>
'mymail at foo.bar',);

print $factory->get_available_databases, "\n";
print "available databases: \n\t",
join("\n\t",$factory->get_available_databases),"\n";

foreach($factory->get_available_databases) {
  print
  print "\n";
}


-- 
Regards,
Peng