trunk/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	dpavlin	80	#!/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 );