I am trying to use tie as a frontend for a DBM file. I am
using the SDBM module which ships with Perl. This code or something close should work but I seem to be spinning my
wheels. The example below is based on what it says in the Advanced Perl Programming book. Any insights would be appreciated. Cheers!
use Fcntl;
use SDBM_File;
tie (%h, 'SDBM_File', 'data.dbm', O_RDWR|O_CREAT, 0640)
|| die $!; # This opens the data file
$h(a) = 20; # This writes the file
while (($k, $v) = %h) { # Iterates over all keys
print "$k,$v\n"
}
untie %h; # Flush and close the dbm file