Readers: 28
1
2
3
4
5
6
7
8
9
#my $a="test1";
my $b="test2";
# Wenn $a nicht vorhanden, erstelle es halt, aber leer
my $a // $a;
if (length($a) > 0) {
$b=$a.$b;
}
1
2
3
4
5
my $mail-pipe = IO::Pipe.new;
if $mail-pipe.to("mail -s 'subject' $mail-adresse") {
$mail-pipe.print("Body.");
$mail-pipe.close;
} # if
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");
}
2010-08-10T19:13:27 rumpi46Dachte halt es gibt eine Möglichkeite irgendwie zu testen ob eine
Variable mit my deklariert wurde oder nicht