basic example of BDB::Wrapper

gistfile1.pl

use strict;
use warnings;

use BDB::Wrapper;

my $dbfile = '/path/to/file.bdb';
my $wrap = BDB::Wrapper->new;

if ( my $h = $wrap->create_write_dbh($dbfile) ) {
  local @SIG{qw/INT TERM QUIT/};
  $SIG{INT} = $SIG{TERM} = $SIG{QUIT} = sub { $h->db_close; };

  my $ret = $h->db_put(key => 'value')
  $h->db_close;

  if ( $ret == 0 ) {
    print "db_put success.\n";
  }
  else {
    die "failed to put";
  }
}

if ( my $h = $wrap->create_read_dbh($dbfile) ) {
  my $value;
  my $ret = $dbh->db_get(key => $value);
  $dbh->db_close;

  if ( $ret == 0 ) {
    print "db_get success. key => $value\n";
  }
  else {
    die "failed to get";
  }
}