2010-02-05T10:41:37 Wolf

Code: (dl )

open(DATEIHANDLE_OUTPUT, "> ". $DATEINAME_OUTPUT) || die "\nAbbruch!\nPerl meldet: [$!]\n\n";

Was mir zu der Fehlermeldung noch einfällt: Das ist im Zweifelsfall nicht sehr aussagekräftig. Die Meldung wird ungefähr so aussehen:

"Abbruch!
Perl meldet: [No such file or directory]"

Wenn das Script etwas laenger ist, hat man dann keine Ahnung, welche Datei genau gemeint ist.

Die schnelle Loesung dafuer ist, es so zu machen, wie in meinem Beispiel, naemlich, dass man am Ende *kein* Newline in die Fehlermeldung schreibt. Dann wird von Perl automatisch die Zeilennummer aus dem Quelltext angefuegt, sodass man sich hinterher ungefaehr zusammenreimen kann, was passiert ist.

Wenn man eine schoenere Meldung haben will, muss man es halt ausfuehrlich schreiben:
die "Konnte Datei nicht zum Schreiben oeffnen: $DATEINAME_OUTPUT: $!\n";