NAME
BDB::Wrapper Wrapper module for BerkeleyDB.pm
This will make it easy to use BerkeleyDB.pm.
You can protect bdb file from the concurrent access and you can use BerkeleyDB.pm with less difficulty.
This module is used on http://www.accessup.org/ and is developed based on the requirement.
Attention: If you use this module for the specified Berkeley DB file,
please use this module for all access to the bdb.
By it, you can control lock to the bdb file.
Lock files are created under /tmp/bdb_home.
If you set ram 1 in new option, lock files are created under /dev/shm/bdb_home.
Example
package test_bdb; use BDB::Wrapper;
my $pro=new test_bdb; $pro->run();
sub new(){ my $self={}; return bless $self; }
sub run(){ my $self=shift; $self->init_vars(); $self->demo(); }
sub init_vars(){ my $self=shift; $self->{'bdb'}='/tmp/test.bdb'; $self->{'bdbw'}=new BDB::Wrapper; }
sub demo(){ my $self=shift; if(my $dbh=$self->{'bdbw'}->create_write_dbh($self->{'bdb'})){ local $SIG{'INT'}; local $SIG{'TERM'}; local $SIG{'QUIT'}; $SIG{'INT'}=$SIG{'TERM'}=$SIG{'QUIT'}=sub {$dbh->db_close();}; if($dbh && $dbh->db_put('name', 'value')==0){ } else{ $dbh->db_close() if $dbh; die 'Failed to put to '.$self->{'bdb'}; } $dbh->db_close() if $dbh; }
if(my $dbh=$self->{'bdbw'}->create_read_dbh($self->{'bdb'})){
my $value;
if($dbh->db_get('name', $value)==0){
print 'Name='.$name.' value='.$value."\n";
}
$dbh->db_close();
}
}methods
new
Creates an object of BDB::Wrapper
If you set {'ram'=>1}, you can use /dev/shm/bdb_home for storing locking file for BDB instead of /tmp/bdb_home/.
1 is default value.
If you set {'no_lock'=>1}, the control of concurrent access will not be used. So the lock files are also not created.
0 is default value.
If you set {'cache'=>$CACHE_SIZE}, you can allocate cache memory of the specified bytes for using bdb files.
The value can be overwritten by the cache value of create_write_dbh
undef is default value.
If you set {'wait'=>wait_seconds}, you can specify the seconds in which dead lock will be removed.
11 is default value.
create_env
Creates Environment for BerkeleyDB
create_env({'bdb'=>$bdb, 'no_lock='>0(default) or 1, 'cache'=>undef(default) or integer});
no_lock and cache will overwrite the value specified in new but used only in this env
create_dbh
Not recommened method. Please use create_read_dbh() or create_write_dbh().
Creates database handler for BerkeleyDB
This will be obsolete due to too much simplicity, so please don\'t use.
create_hash_ref
Not recommended method. Please use create_write_dbh().
Creates database handler for BerkeleyDB
This will be obsolete due to too much simplicity, so please don\'t use.
create_write_dbh
This will creates database handler for writing.
Not recommended:
$self->create_write_dbh($bdb, {'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
OR
Recommended:
$self->create_write_dbh({'bdb'=>$bdb, 'cache'=>undef(default) or integer, 'hash'=>0 or 1, 'dont_try'=>0 or 1,'no_lock'=>0(default) or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
In the default mode, BDB file will be created as Btree;
If you set 'hash' 1, Hash BDB will be created.
If you set 'dont_try' 1, this module won\'t try to unlock BDB if it detects the situation in which deadlock may be occuring.
If you set sort_code_ref some code reference, you can set subroutine for sorting for Btree.
If you set sort or sort_num 1, you can use sub {$_[0] <=> $_[1]} for sort_code_ref.
If you set reverse or reverse_num 1, you can use sub {$_[1] <=> $_[0]} for sort_code_ref.
If you set reverse_cmp 1, you can use sub {$_[1] cmp $_[0]} for sort_code_ref.
create_read_dbh
This will creates database handler for reading.
$self->create_read_dbh($bdb, {'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
OR
$self->create_read_dbh({'bdb'=>$bdb, 'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
In the default mode, BDB file will be created as Btree;
If you set 'hash' 1, Hash BDB will be created.
If you set 'dont_try' 1, this module won\'t try to unlock BDB if it detects the situation in which deadlock may be occuring.
If you set sort_code_ref some code reference, you can set subroutine for sorting for Btree.
If you set sort or sort_num 1, you can use sub {$_[0] <=> $_[1]} for sort_code_ref.
If you set reverse or reverse_num 1, you can use sub {$_[1] <=> $_[0]} for sort_code_ref.
If you set reverse_cmp 1, you can use sub {$_[1] cmp $_[0]} for sort_code_ref.
create_write_hash_ref
Not recommended method. Please use create_write_dbh().
This will creates hash for writing.
$self->create_write_hash_ref($bdb, {'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
OR
$self->create_write_hash_ref({'bdb'=>$bdb, 'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
In the default mode, BDB file will be created as Btree;
If you set 'hash' 1, Hash BDB will be created.
If you set 'dont_try' 1, this module won\'t try to unlock BDB if it detects the situation in which deadlock may be occuring.
If you set sort_code_ref some code reference, you can set subroutine for sorting for Btree.
If you set sort or sort_num 1, you can use sub {$_[0] <=> $_[1]} for sort_code_ref.
If you set reverse or reverse_num 1, you can use sub {$_[1] <=> $_[0]} for sort_code_ref.
If you set reverse_cmp 1, you can use sub {$_[1] cmp $_[0]} for sort_code_ref.
create_read_hash_ref
Not recommended method. Please use create_read_dbh and cursor().
This will creates database handler for reading.
$self->create_read_hash_ref($bdb, {'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
OR
$self->create_read_hash_ref({'bdb'=>$bdb, 'hash'=>0 or 1, 'dont_try'=>0 or 1, 'sort_code_ref'=>$sort_code_reference, 'sort' or 'sort_num'=>0 or 1, 'reverse_cmp'=>0 or 1, 'reverse' or 'reverse_num'=>0 or 1});
In the default mode, BDB file will be created as Btree;
If you set 'hash' 1, Hash BDB will be created.
If you set 'dont_try' 1, this module won\'t try to unlock BDB if it detects the situation in which deadlock may be occuring.
If you set sort_code_ref some code reference, you can set subroutine for sorting for Btree.
If you set sort or sort_num 1, you can use sub {$_[0] <=> $_[1]} for sort_code_ref.
If you set reverse or reverse_num 1, you can use sub {$_[1] <=> $_[0]} for sort_code_ref.
If you set reverse_cmp 1, you can use sub {$_[1] cmp $_[0]} for sort_code_ref.
get_bdb_home
This will return bdb_home.
You may need the information for recovery and so on.
get_bdb_home($BDB);