CoCalc Public Fileswww / cgi-bin / openwebmail / misc / test / dumpdb.plOpen with one click!
Author: William A. Stein
1
#!/usr/bin/perl
2
#
3
# simplely dump out content of a dbm
4
#
5
dbmopen (%DB, $ARGV[0], undef);
6
foreach (sort keys %DB) {
7
print "key=$_, value=$DB{$_}\n";
8
}
9
dbmclose(%DB);
10