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 %h;
   9 tie %h, "BerkeleyDB::Hash", -Filename => $_[0];
  10
  11 print dump( \%h );