Database Perl

  1. Home
  2. Perl
  3. Database
  4. Reads DBM file, printing entries with tie and untie function
#!/usr/bin/perl -w
# Usage:
#  Perl readDB.pl database
use SDBM_File;
use Fcntl;
# Print format for STDOUT.
format STDOUT=
@<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $value  
.
$database  = $ARGV[0];
$mode = 0666;
$flags =  O_RDONLY | binary(); 
tie(%execs, 'SDBM_File', $database, $flags, $mode) or die "Can't open \"$database\" due to $!";
while ( ($key,$value) = each(%execs) ) {
    write;
}  
untie(%execs);
sub binary() {
  return O_BINARY if is_windows();
}
sub is_windows() {
    return $^O =~ /^(MS)?Win/;
}