google/bin/dump.pl

#!/usr/bin/perl -w

# dump.pl
#
# 06/22/07 16:23:05 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;
use DBM::Deep;
use Data::Dump qw/dump/;

my $path = shift @ARGV || 'state.db'; #die "usage: $0 state.db";

my $db = DBM::Deep->new(
        file => $path,
);

warn "file: $path\n";
print dump( $db );
1	#!/usr/bin/perl -w
2
3	# dump.pl
4	#
5	# 06/22/07 16:23:05 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7	use strict;
8	use DBM::Deep;
9	use Data::Dump qw/dump/;
10
11	my $path = shift @ARGV \|\| 'state.db'; #die "usage: $0 state.db";
12
13	my $db = DBM::Deep->new(
14	file => $path,
15	);
16
17	warn "file: $path\n";
18	print dump( $db );