Thread Problem mit sendmail (HTML-Mail erzeugen und senden) (51 answers)
Opened by carsten1976 at 2010-03-27 01:36

bianca
 2010-04-19 14:30
#136259 #136259
User since
2009-09-13
6975 Artikel
BenutzerIn

user image
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

View full thread Problem mit sendmail (HTML-Mail erzeugen und senden)