Dateilock prüfen

[Siechfred]

Hell-O!

trylock würde die Datei doch auch sperren, wenn er erfolgreich ist.

Dann musst du sie halt gleich wieder entsperren.

Ich will diese Datei aber nicht sperren.

Du kannst mit Perl m.W.n. nicht herausbekommen, ob eine Datei gesperrt ist, ohne dass man selber versucht, sie zu sperren. Das Einzige, was dir bleibt, ist LOCK_NB:

open FH, $datei;  
if(flock FH, LOCK_EX | LOCK_NB) {  
  close FH;  
  print "$datei ist bereit";  
}  
else {  
  print "$datei ist gesperrt";  
}

Verwendest du LOCK_NB nicht, wartet flock so lange, bis die Datei durch den Prozess wieder freigegeben wurde. Und das ist es doch, was du willst, oder?

Siechfred