dunno

[infobot.git] / scripts / dbm2txt.pl

diff --git a/scripts/dbm2txt.pl b/scripts/dbm2txt.pl
index 796a6eccb8c55ff95c16f3827a6ec6edd4e72e08..9a2b299fa5f5a8d7513b753473c5d4dc3403d5ec 100755 (executable)
--- 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