This is a handly lttle Perl script which I hacked up to help me read the various DBM-based password and user info database files which we use for sites which are not big enough to justify the use of a SQL database.

The -c option chops off trailing newlines from the key, and removes null characters from the output, which is necessary in some cases, when the DBM was created by a C program.

#!/usr/local/bin/perl

if (dbmopen(%DBMFILE, $ARGV[0],0444))
{
    @the_keys=keys(%DBMFILE);
    foreach $entry (@the_keys)
    {
        if ($ARGV[1] == '-c')   
        {
            $chopped_entry=$entry;
            chomp($chopped_entry);
            $chopped_entry =~ s/\000//g;
            $chopped_value = $DBMFILE{$entry};
            chomp ($chopped_value);
            $chopped_value =~ s/\000//g;
            print '['.$chopped_entry.'] '.$chopped_value."\n";
        }
        else
        {
            print '['.$entry.'] '.$DBMFILE{$entry}."\n";
        }
    }
    dbmclose(%DBMFILE);
}
else
{
    print "Doh!\n\n";
}
exit ;