Hashes, Tie und flock()...?

[Robert]

###################################################################################

Hallo!

Wer weiß Rat:

Ich möchte gerne flock() auf ein über SDBM_FILE / tie gebundenes Hash verwenden.

Dazu habe ich folgenden Alogrithmus aus "Programmieren mit Perl" verwendet,

welcher jedoch mit DB_FILE arbeitet.

Hier der interessante Ausschnitt:

$obj = tie(%hash, 'DB_File', "../dm_db/bla", O_CREATO_RDWR, 0644) or die $!;
$fd = $obj->fd;

open DB_FH, "+<&=$fd" or die $!;

unless (flock (DB_FH, LOCK_SH LOCK_NB)) {
         print "$$: Wettstreit; Warte auf Lese-Lock ($!) ...<BR>";
unless (flock (DB_FH, LOCK_SH)) { die "flock-die: $!" }
}

Leider erhalte ich eine "Invalid Argument" Ecception in allen flock().

In keinem meiner 4 Perlbooks konnte ich Hilfe finden.

Wo liegt wohl mein Fehler...?

Danke im Vorraus und viele Grüße, Udo

##########################################################################################################