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 = Data::Dumper->Dump([thaw($val)],[$key]);
  12                 $data =~ s/^\$//;
  13                 $data =~ s/ = / => /s;
  14         };
  15         if ($@) {
  16                 $data = "$key => $val";
  17         }
  18         print $data,"\n";
  19 }