Using DBM databases with reports : DBM « Database « Perl






  1. Perl
  2. Database
  3. DBM

Using DBM databases with reports

   

#!/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);








Related examples in the same category

1.Creating and Assigning Data to a DBM File
2.Open DBM up for read write access
3.Opening an MLDBM database is similar to opening a regular DBM database:
4.Reads DBM file, printing entries with tie and untie function
5.Store hashes in a DBM file:
6.Write out data into a DBM database
7.Copying from One DBM Format to Another