[Bio] / Sprout / Genomes.pl Repository:
ViewVC logotype

Annotation of /Sprout/Genomes.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :     use strict;
3 :    
4 :     use ERDB;
5 :    
6 :     my $erdb = ERDB::GetDatabase('Sprout');
7 :    
8 :     my $qh = $erdb->Get('Genome', 'Genome(complete) = 1', []);
9 :    
10 :     while (my $genome = $qh->Fetch()) {
11 :     my ($id, $name) = $genome->Values(['id', 'scientific-name']);
12 :     print "$id\t$name\n";
13 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3