DBM - Berkeley Database

See also

[ home ] - [ search ] - [ sitemap ]

Reference R1013

"Runs on NT and Unix!"

Sample Code:

my ($key, $val, %MYDB);

dbmopen %MYDB, "mydbm", 0666;

while (($key, $val) = each %MYDB) {
        print $key, " = ", $val, "\n";
}

undef %MYDB; # Reset complete DB, otherwise old keys will be kept on disc

$MYDB{'a'} = "first";
$MYDB{'b'} = "second";
$MYDB{'c'} = "third";

dbmclose %MYDB;  

use DB_File;

my %MYDBM = ();

tie %MYDBM, 'DB_File', 'test', O_CREAT|O_RDWR;

$MYDBM{'a'} = 'hallo';
$MYDBM{'b'} = 'welt';

foreach (sort keys %MYDBM) {
        print "$_ = $MYDBM{$_}\n";
}

print "Deleting...\n";
delete $MYDBM{'a'};