dump-bdb.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use BerkeleyDB;
   6 use Data::Dump qw(dump);
   7
   8 my $path = shift @ARGV;
   9 die $! unless -r $path;
  10
  11 my %h;
  12 tie %h, "BerkeleyDB::Hash", -Filename => $path;
  13
  14 print dump( \%h );