#!/usr/bin/perl -w
#
# Spits out a human- (and mostly machine-) readable version of a database
# created by Ward Cunningham's WikiInStraightPerl (see www.c2.com/cgi/wikibase)

dbmopen(%db, $ARGV[0], 0666) || die "can't open";

while (($key, $value) = each %db) {
    %rec = split("\263", $value);

    print <<EOF;

$key
>>>>>>>>>>>>>>>>>>>>>>>>
$rec{text}
<<<<<<<<<<<<<<<<<<<<<<<<
EOF

}

dbmclose(%db);
