#!/usr/bin/perl -w
#
# Reads DBM file, printing entries.
#
# Usage:
# Perl dbmread.pl database
# Print format for STDOUT.
format STDOUT=
@<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $value
.
format STDOUT_TOP=
Program File Name page @<<<
$%
.
$database = $ARGV[0];
$mode = 0666;
dbmopen(%execs, $database, $mode) or die "Can’t open \"$database\" due to $!";
while ( ($key,$value) = each(%execs) ) {
write;
}
dbmclose(%execs);
|