trunk/tools/dump_bdb.pl

#!/usr/bin/perl -w

use strict;
use BerkeleyDB;

my $db_file=shift @ARGV;
if (! $db_file) {
        print "usage: $0 [BerkeleyDB file]\n";
        exit 1;
}

my %db_file;
tie %db_file, "BerkeleyDB::Hash",
        -Filename => $db_file,
        -Flags    => DB_RDONLY
or die "Cannot open file $db_file: $! $BerkeleyDB::Error\n" ;

foreach (sort keys %db_file) {
        print "$_\t",$db_file{$_},"\n";
}
untie %db_file;
1	dpavlin	18	#!/usr/bin/perl -w
2
3			use strict;
4			use BerkeleyDB;
5
6			my $db_file=shift @ARGV;
7			if (! $db_file) {
8			print "usage: $0 [BerkeleyDB file]\n";
9			exit 1;
10			}
11
12			my %db_file;
13			tie %db_file, "BerkeleyDB::Hash",
14			-Filename => $db_file,
15			-Flags => DB_RDONLY
16			or die "Cannot open file $db_file: $! $BerkeleyDB::Error\n" ;
17
18			foreach (sort keys %db_file) {
19			print "$_\t",$db_file{$_},"\n";
20			}
21			untie %db_file;