6 print "Usage: dbm2txt <whatever dbm>\n";
7 print "Example: dbm2txt.pl factoids\n";
14 require "src/Factoids/db_dbm.pl";
18 dbmopen(%db,$dbname,0444) or die "error: cannot open db.\n";
20 next if /=>/; # skip the key if it contains the delimiter.
22 print "$_ => $db{$_}\n";