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	dpavlin	1.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;