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";
26 # vim:ts=4:sw=4:expandtab:tw=80