projects
/
webpac
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
yet another progress bar fix
[webpac]
/
tools
/
dump_gdbm.pl
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;