33 lines
504 B
Perl
33 lines
504 B
Perl
|
#!/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 "Cant open \"$database\" due to $!";
|
||
|
|
while ( ($key,$value) = each(%execs) ) {
|
||
|
|
write;
|
||
|
|
}
|
||
|
|
|
||
|
|
dbmclose(%execs);
|