Code schlanker machen? - #119713 (Allgemeines zu Perl)

betterworld

2009-03-23 13:33

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

2009-03-23T00:36:00 Beeboop
Code (perl): (dl )
1
2
3
open (OUT, ">/etc/postfix/max.txt");
print OUT @DATEI1;
close OUT;

Beim Schreiben in Dateien sollte man auch Fehler abfragen. Gerade hier, wo Du hinterher die postfix-Konfiguration mit der neuen Datei überschreibst, ist es blöd, wenn die neue Datei leer ist, weil die Festplatte voll war.

In Perl reicht es, dazu bei close den Fehler zu überprüfen, Fehler von vorherigen prints werden dann auch gemeldet.
Bei open muss man natürlich auch noch Fehler prüfen; das hast Du zwar meist gemacht, aber in diesem Fall vergessen.

Code (perl): (dl )

1
2
3

open (OUT, ">/etc/postfix/max.txt") or die "Could not open max.txt for write";
print OUT @DATEI1;
close OUT or die "Could not write to max.txt";

Last edited: 2009-03-23 13:35:09 +0100 (CET)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class