#!/usr/local/bin/perl
use strict;
use warnings;
use BerkeleyDB;
my $cmdname = $0; $cmdname =~ s{.*/}{};
my $usage = "Usage: $cmdname dbfile year\n";
die $usage unless @ARGV == 2;
my $dbfile = shift;
my $year = shift;
my $db = new BerkeleyDB::Btree
-Filename => $dbfile,
-Compare => sub { $_[0] <=> $_[1] },
-Property => DB_DUP or
die "$cmdname: unable to open $dbfile: $!\n";
my $cursor = $db->db_cursor;
my ($key, $value) = ($year, "");
my $status = $cursor->c_get($key, $value, DB_SET_RANGE);
my $count = 0;
while ($status == 0 && $count < 10) {
print "$key: $value\n"; ++$count;
$status = $cursor->c_get($key, $value, DB_NEXT);
}
|