Opened by rumpi46 at 2010-08-09 21:24
User since
2010-07-25
4 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-07-25
4 Artikel
BenutzerIn
Hi,
Zu 2: Dachte halt es gibt eine Möglichkeite irgendwie zu testen ob eine
Variable mit my deklariert wurde oder nicht, aber dann kann Perl das ganze
evtl. beim Kompilieren nicht richtig testen und es ist Absicht so.
Habe das mit der Mail erstmal so gemacht:
Zu 2: Dachte halt es gibt eine Möglichkeite irgendwie zu testen ob eine
Variable mit my deklariert wurde oder nicht, aber dann kann Perl das ganze
evtl. beim Kompilieren nicht richtig testen und es ist Absicht so.
Habe das mit der Mail erstmal so gemacht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/local/bin/perl6
my $MailAdresse="email@domain.test";
my $MailSubjekt="Testmail";
my $MailContent="BlahBlah";
my $MailCommand="echo $MailContent | mail -s '$MailSubjekt' $MailAdresse ; echo \$?";
my $MailerrorMeldung;
my $MailError=qqx[$MailCommand];
if ($MailError ~~ /^(.*)\n(\d+)/) {
$MailerrorMeldung=$0;
$MailError=$1;
}
if ($MailError > 0 || $MailError < 0) {
print ("Mail Fehler: $MailerrorMeldung\n");
}