Hallo Perlgemeinde,

folgender Code:

macht aus einer Datei in der
1
2
3
4
steht
1
1
3
3

Wieso ist das so?

Meine Absicht ist im Logfile bspw. nach der Zeile zu suchen die mit dem Key xy anfängt und in dieser Zeile rechts etwas anzuhängen. Sollte es den Key xy bisher im Logfile nicht geben, soll er an die Datei angehängt werden. Außerdem will ich dafür sorgen, dass wenn die Datei 500 Zeilen hat vorn 50 Zeilen gelöscht werden, und dass unter Berücksichtigung von konkurrierenden Prozessen. Wie kann man dazu sinnvoll vorgehen?

Der Code liest und schreibt abwechselnd Zeilen aus und in die geoeffnete Datei. Da jeweils die gerade gelesene Zeile wieder geschrieben wird, wird in Deinem Beispiel jede zweite Zeile durch die vorhergehende ueberschrieben. Waeren die Zeilen nicht alle zufaellig gleich lang, koennte das Ergebnis auch noch wesentlich unuebersichtlicher werden.

Um die geschilderten Modifikationen an der Logdatei durchzufuehren, waere eine Loesung mit Tie::File vermutlich am bequemsten, da sich dann alle gewuenschten Operationen mit splice, grep und Konsorten erledigen lassen.

leo11+2009-02-14 21:17:08--

Code (perl): (dl )

1
2
3
4
5

if (flock(LOG_FILE, &LOCK_EX)) {         # exclusive lock
...
    flock(LOG_FILE, &LOCK_UN) or die "Can't unlock logfile $!"; # unlock
}
close(LOG_FILE) or die "Can't close logfile $!";

dazu kann ich nur sagen: das LOCK_UN ist unnötig und sogar falsch. ein close() entfernt den
lock sowieso und ausserdem kann zwischen dem unlock und dem close auch ein anderer prozess
auf die datei zugreifen, da hast du somit eine race condition drin.

@pq: Gab's nicht ein paar komische Betriebssysteme, wo man explizit unlocken muss, weil sonst auch ueber das Schliessen der Datei hinaus eine Sperre bestehen bleibt, die man nicht mehr so einfach los wird? Ich lgaube, das hat zumindest mal jemand hier im Forum behauptet...

Die Racecondition an dieser Stelle ist meiner Meinung nach auch nicht kritisch, wenn man vor dem unlocken alles geflusht hat, was man schreiben wollte.

So, es funktioniert nun und hat auch einem ersten Belastungstest standgehalten.
@murphy
Tie::File ist prima. Nach der Doku von File::Temp tut diese Doku richtig gut.

@pq
Danke für den Tip.