tie an existing hash with BerkleyDB

[punit jain]

Hi,

I have a program where a subroutine creates a hash. I want to later tie it
to BerkleyDB.

my $users = {};
my $entry = {};
my $env =  new BerkeleyDB::Env
        -Home => $tmp_dir,
        -Flags => DB_CREATE|DB_INIT_CDB|DB_INIT_MPOOL
        or die "cannot open environment: $BerkeleyDB::Error\n";
my $berkeleydb_temp_file = "/tmp/tmp.berkeleydb";
my $sdat = searchfunc(  $users, $entry ); # sdat is a reference to hash of
hash of hash

my $db = tie %$sdat, 'BerkeleyDB::Hash',
        -Filename => $berkeleydb_temp_file,
        -Flags    => DB_CREATE,
        -Env      => $env
        or die "Cannot create file: $! $BerkeleyDB::Error\n";

this doesnot seem to work and I cannot retrieve anything from $db.

Any ideas ?

Regards,
Punit