home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
gnu
/
perl-4.036.tar.gz
/
perl-4.036.tar
/
perl-4.036
/
atarist
/
test
/
gdbm
< prev
next >
Wrap
Text File
|
1993-02-08
|
518b
|
29 lines
die "cant create dbmtest" unless dbmopen(%keys, "dbmtest", 0666);
print "Writing...\n";
foreach (0..100) {
$keys{"$_"} = $_;
}
print "Done\n";
dbmclose (%keys);
die "cant read dbmtest" unless dbmopen(%rkeys, "dbmtest", undef);
$i = 0;
print "Reading...\n";
while (($key, $val) = each %rkeys)
{
if ($keys{$key} != $val)
{
print 'Incorrect val ', $key, ' = ', $val, ' expecting ', $keys{$key}, "\n";
$i = $i + 1;
}
}
print "Done\n";
dbmclose (%keys);
print $i, " Error(s)\n";
unlink "dbmtest";