#!/usr/bin/perl -w
use strict;
-
-if (!scalar @ARGV) {
+use DB_File;
+if ( !scalar @ARGV ) {
print "Usage: dbm2txt <whatever dbm>\n";
print "Example: dbm2txt.pl factoids\n";
exit 0;
openDB();
}
-dbmopen(%db,$dbname,0444) or die "error: cannot open db.\n";
-foreach (keys %db) {
- next if /=>/; # skip the key if it contains the delimiter.
-
- print "$_ => $db{$_}\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