<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:14pt"><div>Dear Support,</div><div>I am executing the code to "get a list of all Ensemble
databases installed on a given database host" from http://www.ensembl.org/info/docs/api/core/core_tutorial.html</div><div style="color: rgb(0, 0, 0); font-size: 18.6667px; font-family: Courier New,courier,monaco,monospace,sans-serif; background-color: transparent; font-style: normal;">but when I run the code it does not return any database or any error.</div><div style="color: rgb(0, 0, 0); font-size: 18.6667px; font-family: Courier New,courier,monaco,monospace,sans-serif; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-size: 18.6667px; font-family: Courier New,courier,monaco,monospace,sans-serif; background-color: transparent; font-style: normal;">Please find the code below.<br></div><span><br>Thanks,<br><br>Enrico<br><br>use Bio::EnsEMBL::Registry;<br><br>my $registry = 'Bio::EnsEMBL::Registry';<br><br>$registry->load_registry_from_db(<br> -host => 'ensembldb.ensembl.org', #
alternatively 'useastdb.ensembl.org'<br> -user => 'anonymous'<br>);<br><br>my @db_adaptors = @{ $registry->get_all_DBAdaptors() };<br><br>foreach my $db_adaptor (@db_adaptors) {<br> my $db_connection = $db_adaptor->dbc();<br><br> printf(<br> "species/group\t%s/%s\ndatabase\t%s\nhost:port\t%s:%s\n\n",<br> $db_adaptor->species(), $db_adaptor->group(),<br> $db_connection->dbname(), $db_connection->host(),<br> $db_connection->port()<br> );<br>}<br></span><div></div></div></body></html>