version 1.3, 2003/09/04 14:32:46
|
version 1.4, 2005/03/18 19:44:38
|
Line 32
|
Line 32
|
use strict; |
use strict; |
use Getopt::Long; |
use Getopt::Long; |
use GDBM_File; |
use GDBM_File; |
|
use Data::Dumper; |
|
use Storable qw(freeze thaw); |
|
|
# |
# |
# Options |
# Options |
Line 71 while (my $fname = shift) {
|
Line 73 while (my $fname = shift) {
|
next; |
next; |
} |
} |
while (my ($key,$value) = each(%db)) { |
while (my ($key,$value) = each(%db)) { |
|
if ($value =~ s/^__FROZEN__//) { |
|
$value = thaw(&unescape($value)); |
|
} |
if ($unesc) { |
if ($unesc) { |
$key = &unescape($key); |
$key = &unescape($key); |
$value = &unescape($value); |
$value = &unescape($value) if (! ref($value)); |
} |
} |
if ($localize_times) { |
if ($localize_times && ! ref($value)) { |
if ($value =~ /^\s*([0-9]{10,10})\s*$/) { |
$value =~ s/([0-9]{10,10})/localtime($1)/ge; |
$value = $value.' [ '.localtime($1).' ]'; |
|
} |
|
} |
} |
print "$key = $value\n"; |
print "$key = ".(ref($value)?Dumper($value):$value)."\n"; |
} |
} |
untie %db; |
untie %db; |
} |
} |