ok so gehts ...eof

[Alain]

hallo,

Du musst die DATEI öffnen und mit diesen Handle dein Flock ausführen.

okok, ich habs jetzt geschafft :) nach langem durchprobieren und natürlich mit der hilfe der dokumentation. Hier ist die Lösung:

use DB_File;

my %logins;

$db = (tie %logins , 'DB_File', "$loginlog", O_RDWR|O_CREAT, 0644);

$fd = $db->fd;

open(DB_FH, "+<&=$fd") || die "kann datei nicht oeffnen $!";

flock (DB_FH,2) || die "kann Datei nicht flocken! $!";

lese und schreibe irgendwas...

flock(DB_FH,8);     undef $db;     untie %logins;     close(DB_FH);

-------------------------------end of

Grüsse vom Alain