nn/swish/dump_gdbm.pl

#!/usr/bin/perl -w

use strict;
use GDBM_File;

my $gdbm_file=shift @ARGV;
if (! $gdbm_file) {
        print "usage: $0 [gdbm file]\n";
        exit 1;
}

my %gdbm_file;
tie %gdbm_file, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
foreach (sort keys %gdbm_file) {
        print "$_\t",$gdbm_file{$_},"\n";
}
untie %gdbm_file;
1	#!/usr/bin/perl -w
2
3	use strict;
4	use GDBM_File;
5
6	my $gdbm_file=shift @ARGV;
7	if (! $gdbm_file) {
8	print "usage: $0 [gdbm file]\n";
9	exit 1;
10	}
11
12	my %gdbm_file;
13	tie %gdbm_file, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
14	foreach (sort keys %gdbm_file) {
15	print "$_\t",$gdbm_file{$_},"\n";
16	}
17	untie %gdbm_file;