opendir(DIR, $dbDIR) || die "cannot opendir $dbDIR: $!"; while (defined($file = readdir(DIR))){
if ($file =~ /db\.*/){
tie %{ $listOfHashes[$numOfHashes] }, "DB_File", $file, O_RDONLY, 0666, $b
|| die ("Cannot open $file");
$numOfHashes++;
print "Tied $file $numOfHashes\n";
}
}
Gosh Gosh Gosh,
Bill you are quite right! It works fine just like it should. I tested it with 80 different DB_files (2Gb each) BTREE. A huge amount of data, I did a trivial mistake and $file DO NOT contains the path. O poor me. Thank you so much. What a trivial mistake.
But what is the reason why tie succeded and not die. I saw the printed message "Tied file ..." and this makes me erroneously trust the code.
Again thank you so much!
_______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
