Is there a perl module that allows you to us the concurrent data model (many read, one write) model for Berkeley DB in a tie way?

That is to say, as one process writes, the other can read and it's there.

--
Steve Marvell

After reading more, and playing, here it is:

#!/usr/bin/perl -w

use strict;

use BerkeleyDB;
use Data::Dumper;

my $env = new BerkeleyDB::Env( -Home => '/home/steve/test',
                   -Flags => DB_CREATE | DB_INIT_CDB | DB_INIT_MPOOL )
  || die "env error: $! $BerkeleyDB::Error";

my $db = (tie my %hash, 'BerkeleyDB::Hash', 
       -Filename => 'db2.bdb',
       -Env => $env,
       -Flags => DB_CREATE)
  || die "db error: $! $BerkeleyDB::Error";

while (<>) {

  $hash{$1} = $2 if (/(.*)=(.*)/);

  print Dumper \%hash;
}

undef $db;
untie %hash;
[download]

--
Steve Marvell