#!/usr/bin/perl
-
+use strict;
use Data::Dumper;
use Storable qw(thaw);
-
+use Getopt::Std;
+use vars qw($opt_d);
+getopts("d:");
+my %x;
dbmopen %x,$ARGV[0],0644;
+if ($opt_d) {
+ delete $x{$opt_d};
+}
+
while (my ($key,$val) = each %x) {
my $data;
eval {
- $data = Dumper(thaw($val));
+ $data = Data::Dumper->Dump([thaw($val)],[$key]);
+ $data =~ s/^\$//;
+ $data =~ s/ = / => /s;
};
if ($@) {
- $data = $val;
+ $data = "$key => $val";
}
- print $key, " => ",$data,"\n";
+ print $data,"\n";
}
+
+dbmclose %x;