X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fdbm2txt.pl;h=9a2b299fa5f5a8d7513b753473c5d4dc3403d5ec;hb=refs%2Fheads%2Fmaster;hp=796a6eccb8c55ff95c16f3827a6ec6edd4e72e08;hpb=879306034cb02db78a8a4cc78d40843e0830c29d;p=infobot.git

diff --git a/scripts/dbm2txt.pl b/scripts/dbm2txt.pl
index 796a6ec..9a2b299 100755
--- a/scripts/dbm2txt.pl
+++ b/scripts/dbm2txt.pl
@@ -2,7 +2,7 @@
 
 use strict;
 use DB_File;
-if (!scalar @ARGV) {
+if ( !scalar @ARGV ) {
     print "Usage: dbm2txt <whatever dbm>\n";
     print "Example: dbm2txt.pl factoids\n";
     exit 0;
@@ -15,11 +15,12 @@ if (0) {
     openDB();
 }
 
-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.
-  chomp $val;
-  print "$key => $val\n";
+dbmopen( %db, $dbfile, 0644 ) or die "error: cannot open db. $dbfile\n";
+my ( $key, $val );
+while ( ( $key, $val ) = each %db ) {
+    chomp $val;
+    print "$key => $val\n";
 }
 dbmclose %db;
+
+# vim:ts=4:sw=4:expandtab:tw=80