Es ist etwas her, dass ich Perl geschrieben habe, aber überprüfe einmal, ob
close fehlerfrei durchgeführt wird.
Darüber hinaus solltest Du die Datei exklusiv (
flock) und war da nicht auch was mit ">>", wenn Du Dateien anhängen willst?
Der folgende Code ist nicht getestet:
Code:
open (FILE,">>$filename")|| die "error opening file"
flock(FILE, LOCK_EX) || die "error locking file"
# maybe someone edited the file while waiting...
seek(FILE, 0, 2);
print FILE "$line\n";
flock(FILE, LOCK_UN);
close (FILE);
Eine gute
Einführung in die Perl-Funktionen findest Du bei
SELFHTML.