Parent Directory
| 
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 |