Revision 337 (by dpavlin, 2004/06/10 19:22:40) new trunk for webpac v2
 
#!/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;