2010-02-05T11:04:37 betterworld

Code: (dl )

1
2
3

open(DATEIHANDLE_OUTPUT, ">:encoding(UTF-8)". $DATEINAME_OUTPUT) || die "\nAbbruch!\nPerl meldet: [$!]\n\n";;
print DATEIHANDLE_OUTPUT @ALLE_ZEILEN;
close(DATEIHANDLE_OUTPUT) or die $!;

Beachte auch das "die" in der letzten Zeile, das ist wichtig, weil es meldet, wenn die Datei nicht geschrieben werden konnte.

Dann solltest du aber noch ein die() beim print() hinzufügen. Nicht erst beim "exit()" werden alle daten geschrieben. Du prüfst nur ob die Datei geschlossen werden konnte und ob die letzten buffer auch korrekt geleert wurden. Aber das eigentliche schreiben prüfst du nicht.

Bequemer wäre natürlich "use autodie". Dann prüft Perl das selber. Dann kann Perl sich als Frickelsprache etwas weiter vor PHP platzieren, an den untersten Plätzen.