Mega Code Archive

 

Categories / Perl / Database

 

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/; }