projects
/
webpac
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
4073341
)
dump content of gdbm file
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 29 Nov 2003 20:11:07 +0000
(20:11 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 29 Nov 2003 20:11:07 +0000
(20:11 +0000)
git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@191
13eb9ef6
-21d5-0310-b721-
a9d68796d827
tools/dump_gdbm.pl
[new file with mode: 0755]
patch
|
blob
diff --git a/tools/dump_gdbm.pl
b/tools/dump_gdbm.pl
new file mode 100755
(executable)
index 0000000..
b5f6e1f
--- /dev/null
+++ b/
tools/dump_gdbm.pl
@@ -0,0
+1,17
@@
+#!/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;