Guest User

Untitled

a guest
Mar 21st, 2011
134
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. #!C:\Perl\bin -w
  3. print "Content-type:text/html\n\n";
  4. use strict;
  5. use warnings;
  6. use lib "C:/Perl/site/bin/ensembl/modules";
  7. use lib "C:/Perl/cpan/Bundle/DBD";
  8. use lib "C:/Perl/site/bin/ensembl/modules/Bio/EnsEMBL";
  9. use Bio::EnsEMBL::Registry;
  10.  
  11. my $registry = 'Bio::EnsEMBL::Registry';
  12.  
  13. $registry->load_registry_from_db(
  14. -host => 'ensembldb.ensembl.org',
  15. -user => 'anonymous'
  16. );
  17.  
  18. my @db_adaptors = @{ $registry->get_all_DBAdaptors() };
  19.  
  20. foreach my $db_adaptor (@db_adaptors) {
  21. my $db_connection = $db_adaptor->dbc();
  22.  
  23. printf(
  24. "species/group\t%s/%s\ndatabase\t%s\nhost:port\t%s:%s\n\n",
  25. $db_adaptor->species(), $db_adaptor->group(),
  26. $db_connection->dbname(), $db_connection->host(),
  27. $db_connection->port()
  28. );
  29. }
RAW Paste Data