<![CDATA[
#!perl -w
# Read from a Boulder::Store using DB_File
use strict;
use warnings;
use Boulder::Store; # Store of Stones
# use Boulder::Stream; # Stream of Stones
my $store = Boulder::Store->new('genbank.db',1);
unless ( $store ) {
print "Error in reading genbank.db: $!\n";
exit(1);
}
# my $stream = Boulder::Stream->new;
my ($stone, $dna);
print "Length of database: ", $store->length(), "\n";
while (my $stone = $store->read_record) {
print "Quick summary: ", $stone, "\n";
$dna = $stone->Sequence;
print "Reading dna of length ",length($dna), " bp.\n";
print "From index: ", $stone->{record_no}->[0], "\n";
}
]]>