I have ActivePerl 5.8.8 build 820 installed, and used ppm to pull down
the MLDBM module. I am trying to use Storable for the data serializer
for MLDBM with a DB_HASH, but when I tried to test it, it returned
this error:
Can't locate auto/Storable/TIEHASH.al in @INC (@INC contains:
C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/site/lib/MLDBM.pm line 143
I'm using the Storable that came with the distribution, so I'm not
sure how to obtain whatever is missing. Can anyone point me in the
right direction?
Here is my test code:
------------------------------------------------------
#!/perl/bin/perl
use strict;
use warnings;
use Data::Compare;
use Data::Dumper;
use MLDBM qw(Storable);
my %database;
unlink "blahfile";
tie (%database, "MLDBM", "blahfile", "O_RDWR|O_CREAT", 0600) or die
"Cannot open file 'blahfile': $!\n";
my $update = 9; # arbitrary number that is not a 1 or 0
my @old = ("00-11-22-33-44-55", "A117", 1, 1197390385, { bob => 23,
alice => 20 });
print("@old", "\n");
my @same = ("00-11-22-33-44-55", "A117", 1, 1197390385, { bob => 23,
alice => 20 });
print("@same", "\n");
my @new = ("00-11-22-33-44-55", "A117", 1, 1197390385, { bob => 23,
alice => 24 });
print("@new", "\n");
$database{"144"} = [EMAIL PROTECTED];
my $test_ref = $database{"144"};
my @test_db = @{$test_ref};
print("[EMAIL PROTECTED] = ", Dumper([EMAIL PROTECTED]), "\n");
print("\$database_144 = ", Dumper($database{"144"}), "\n");
------------------------------------------------------
Regards,
Roman
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
