Sunday, March 08, 2009

Installing Berkeley DB on Debian.
========================

1. wget http://freshmeat.net/redir/berkeleydb/694/url_tgz/db-4.7.25.tar.gz
2. tar vxfz db-4.7.25.tar.gz;cd db-4.7.25/build_unix
3. ../dist/configure --enable-cxx --enable-diagnostics --prefix=/usr/local
4. Install perl BerkeleyDB from CPAN.

Testing by using perl Code
==================
use strict ;
use BerkeleyDB ;

my $filename = "fruit" ;
unlink $filename ;
my $db = new BerkeleyDB::Hash
-Filename => $filename,
-Flags => DB_CREATE
or die "Cannot open file $filename: $! $BerkeleyDB::Error\n" ;

# Add a few key/value pairs to the file
$db->db_put("apple", "red") ;
$db->db_put("orange", "orange") ;
$db->db_put("banana", "yellow") ;
$db->db_put("tomato", "red") ;

# Check for existence of a key
print "Banana Exists\n\n" if $db->db_get("banana", $v) == 0;

# Delete a key/value pair.
$db->db_del("apple") ;

# print the contents of the file
my ($k, $v) = ("", "") ;
my $cursor = $db->db_cursor() ;
while ($cursor->c_get($k, $v, DB_NEXT) == 0)
{ print "$k -> $v\n" }

undef $cursor ;
undef $db ;

No comments: