6 print "Usage: dbm2txt <whatever dbm>\n";
7 print "Example: dbm2txt.pl factoids\n";
14 require "src/Factoids/db_dbm.pl";
18 dbmopen(%db, $dbfile, 0644) or die "error: cannot open db. $dbfile\n";
20 while (($key, $val) = each %db) {
22 print "$key => $val\n";