X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fdbm2txt.pl;h=796a6eccb8c55ff95c16f3827a6ec6edd4e72e08;hb=879306034cb02db78a8a4cc78d40843e0830c29d;hp=0cfb10fa54eceaa3e1db88b72528be086c7a4857;hpb=99f86352e2eff21f5eef65c16c41b44e1bfa17b6;p=infobot.git

diff --git a/scripts/dbm2txt.pl b/scripts/dbm2txt.pl
index 0cfb10f..796a6ec 100755
--- a/scripts/dbm2txt.pl
+++ b/scripts/dbm2txt.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-
+use DB_File;
 if (!scalar @ARGV) {
     print "Usage: dbm2txt <whatever dbm>\n";
     print "Example: dbm2txt.pl factoids\n";
@@ -15,10 +15,11 @@ if (0) {
     openDB();
 }
 
-dbmopen(%db,$dbname,0444) or die "error: cannot open db.\n";
-foreach (keys %db) {
+dbmopen(%db, $dbfile, 0644) or die "error: cannot open db. $dbfile\n";
+my ($key, $val);
+while (($key, $val) = each %db) {
   next if /=>/;		# skip the key if it contains the delimiter.
-
-  print "$_ => $db{$_}\n";
+  chomp $val;
+  print "$key => $val\n";
 }
 dbmclose %db;