Retrieving Data from a DBM File : AnyDBM « Database « Perl






Retrieving Data from a DBM File

   

#!/bin/perl

use AnyDBM_File;
dbmopen(%states, "statedb", 0666);
@sortedkeys=sort keys %states;
foreach $key ( @sortedkeys ){
    $value=$states{$key};
    $total++;
    write;
}
dbmclose(%states);    
format STDOUT_TOP=
Abbreviation     State
------------------------------
.
format STDOUT=
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
$key,          $value
.
format SUMMARY=
------------------------------
Number of states:@###
$total

.
$~=SUMMARY;
write;

   
    
    
  








Related examples in the same category

1.Deleting Entries from a DBM File
2.Writing Portable DBM Programs with the AnyDBM Module
3.Create, add, delete, and close a DBM file and how to create a Perl-style report.