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 );