Berkeley DB 1.85

попробуй на perl'е:

use DB_File;

$X = tie (%DHhash, DB_File, $fileDB, O_RDWR|O_CREAT, 0644, $DB_HASH) || die «Coudn't open database $!\n»;

while ( my ($key, $value) = each(%DHhash) ) {
print «key: $key => value: $value\n»;
}