forum/dumpbase

   1 #!/usr/bin/perl
   2
   3 use Data::Dumper;
   4 use Storable qw(thaw);
   5
   6 dbmopen %x,$ARGV[0],0644;
   7
   8 while (my ($key,$val) = each %x) {
   9         my $data;
  10         eval {
  11                 $data = Dumper(thaw($val));
  12         };
  13         if ($@) {
  14                 $data = $val;
  15         }
  16         print $key, " => ",$data,"\n";
  17 }