Hello,
I've got a problem with the following DBM script I'm working on. I'm running on a server with perl version 5.003_02 + two suidperl security patches. I get the following error:
No write permission to ndbm file at pl.pl line 16. Instead of the typical two files that this script generates on my home computer, it generates one file called pricelist.db. I can't chmod it either. What's wrong???
#!/usr/bin/perl5
use CGI::Carp qw(fatalsToBrowser);
use strict;
open(PL, "pricelist.txt") || die "Can't open pricelist";
my @pl = <PL>;
close(PL);
my %PL = ();
dbmopen(%PL, "pricelist", 0777) || die "Can't open pricelist DBM: $!";
for(@pl) {
my @split = split /\|/;
chomp($split[-1]);
if (defined($PL{$split[1]})) {
$PL{$split[1]} = "$PL{$split[1]}|$split[2],$split[3]";
}
else {
$PL{$split[1]} = "$split[2],$split[3]";
}
}
my $count = 0;
print "There are ", scalar keys %PL, "items in the DB.\n";
dbmclose(%PL);