Question

According to the dbmopen-docu this function has been largely superseded by the “tie” function.
I know the Tie::File module which accesses the lines of a disk file via a Perl array.
How would I do it if I don’t need an array but a hash?

Answer 1

You can use Storable:

 use Storable;
 store \%hash, 'file';
 my $hashref = retrieve('file');

or if you will need to store more data then BerkeleyDB:

use BerkeleyDB;
use MLDBM qw(BerkeleyDB::Hash) ;
use Storable;


my $env = BerkeleyDB::Env->new(-Home => $home);
tie %store, 'MLDBM', -env => $env;

$store{my_stored_hash} = \%hash;