forum/dumpbase

   1 #!/usr/bin/perl
   2 use strict;
   3 use Data::Dumper;
   4 use Storable qw(thaw);
   5 use Getopt::Std;
   6 use vars qw($opt_d);
   7 getopts("d:");
   8 my %x;
   9 dbmopen %x,$ARGV[0],0644;
  10
  11 if ($opt_d) {
  12         delete $x{$opt_d};
  13 }
  14
  15 while (my ($key,$val) = each %x) {
  16         my $data;
  17         eval {
  18                 $data = Data::Dumper->Dump([thaw($val)],[$key]);
  19                 $data =~ s/^\$//;
  20                 $data =~ s/ = / => /s;
  21         };
  22         if ($@) {
  23                 $data = "$key => $val";
  24         }
  25         print $data,"\n";
  26 }
  27
  28 dbmclose %x;