Thread Problem mit sendmail (HTML-Mail erzeugen und senden)
(51 answers)
Opened by carsten1976 at 2010-03-27 01:36
Ja, ich glaube, jetzt hab ich es gefressen. Also immer auf den Rückgabewert von open stützen und dann auf $! zugreifen. Nicht nur im or Fall und dann ggf. den Fehler vom Vorgang davor.
Zur Gegenprobe, dass ich es richtig verstanden habe: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 #!/usr/bin/perl -w use strict; use warnings; use Fcntl qw (:DEFAULT :flock); # pq: my $ok = sysopen (my $datei,'testdatei.test',O_WRONLY|O_APPEND); if ($ok) { print "Dateizugriff OK\n"; } else { print "Fehler $!\n"; } my $ok2 = sysopen (my $datei2,'testdatei.test',O_WRONLY|O_APPEND|O_CREAT); if ($ok2) { print "Dateizugriff OK\n"; } else { print "Fehler $!\n"; } # bianca (ungeeignet da beim zweiten sysopen noch der Fehler aus dem ersten in $! steht!): sysopen (my $datei3,'testdatei.test2',O_WRONLY|O_APPEND) or my $fehler = $!; if ($fehler eq '') { print "Dateizugriff2 OK\n"; } else { print "Fehler2 $fehler\n"; } sysopen (my $datei4,'testdatei.test2',O_WRONLY|O_APPEND|O_CREAT) or $fehler = $!; if ($fehler eq '') { print "Dateizugriff2 OK\n"; } else { print "Fehler2 $fehler\n"; } Danke Dir 10 print "Hallo"
20 goto 10 |