I write a new MyMemory.pm module. But we have a error again: BerkeleyDB Aborting: Database is already closed at /home/medievalage/cgi-bin/MyMemory.pm line 68. 

package MyMemory;

use strict;
use Storable qw(freeze thaw);
use BerkeleyDB;
use Fcntl qw(:DEFAULT);

use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
require Exporter;
$VERSION=0.1;
@ISA=qw(Exporter);
@EXPORT=qw(get_memory set_memory);

my $filename = "/home/test/mem.db";


sub new {
  my $Proto = shift;
  my $Class = ref($Proto) || $Proto;
  
  my %Cache;
  my $env = new BerkeleyDB::Env(
      -Home  => '/tmp',
      -Flags => DB_INIT_CDB | DB_CREATE | DB_INIT_MPOOL,
     #-Cachesize => 23152000,
      )
      or die "can't create BerkelyDB::Env: $!";
  my $Obj = tie %Cache, 'BerkeleyDB::Btree',
     -Filename => $filename,
     -Flags    => DB_CREATE,
     -Mode     => 0640,
     -Env      => $env
     or die ("Can't tie to $filename: $!");

  my $Self = {
    Cache => \%Cache,
    Obj => $Obj
  };

  bless ($Self, $Class);
  return $Self;
}

my $bdbobj = new MyMemory(); 

sub get_memory {    
    my $Key=shift;
    return $bdbobj->get($Key);
}

sub set_memory {
    my $Key=shift;
    my %Value = @_;
    $bdbobj->set($Key,\%Value);
}

sub set {
  $_[0]->{Obj}->db_put( $_[1], freeze($_[2]) );
}

sub get {
  my $value;
  $_[0]->{Obj}->db_get( $_[1], $value );
  return thaw( $value );
}
 
1;

[download]
right code please for mod_perl.

In reply to Re^8: mod_perl & BerkeleyDB. Need help. by STork2000
in thread mod_perl & BerkeleyDB. Need help. by STork2000

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.