saintex has asked for the wisdom of the Perl Monks concerning the following question:
use strict; use warnings; use Fcntl qw( LOCK_SH O_RDONLY O_CREAT O_RDWR ); use Storable qw(nstore store_fd nstore_fd freeze thaw dclone retrieve +); use DBM::Deep; use MLDBM qw(AnyDBM_File Storable); use Storable qw(retrieve_fd); use FindBin qw($Bin); my ($dbm, $key, $value, %o,$colref ); $dbm = tie %o, 'MLDBM', $Bin.'/mj-test-schedules', O_CREAT|O_RDWR, 064 +0 or die $!; use Data::Dumper; $Data::Dumper::Purity=1; print Dumper (%$dbm);
Encountered CODE ref, using dummy placeholder at /usr/lib/perl/5.10/Da +ta/Dumper.pm line 190. $VAR1 = 'DB'; $VAR2 = bless( do{\(my $o = 33211984)}, 'AnyDBM_File' ); $VAR3 = 'SR'; $VAR4 = bless( { 'dumpmeth' => '', '_dumpsub_' => sub { "DUMMY" } }, 'MLDBM::Serializer::Storable' );
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: read a file with MLDBM
by marto (Cardinal) on Nov 22, 2010 at 17:54 UTC |