projects
/
perl-cwmp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
r257@brr: dpavlin | 2007-11-24 03:16:39 +0100
[perl-cwmp.git]
/
bin
/
dump.pl
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 );