JunTi+2008-01-08 19:06:30--

Die Variablen sind wie folgt definiert...

Code (perl): (dl )

1
2
3
4
5

$maennlichoweiblich = &maildatensaver($FORM{'maennlichoweiblich'});
$alter = &maildatensaver($FORM{'alter'});
$aberglaube = &maildatensaver($FORM{'aberglaube'});
$horoskope = &maildatensaver($FORM{'horoskope'});
# 23 weitere solche zeilen

Quote

usw.

1
2
3
4
5
6

# der nächste maintainer, der evtl. kein deutsch kann, wird sich über
# englische bezeichner freuen
my %maildata;
for my $key qw/ male_or_female age ... /) {
    $maildata{$key} = maildatensaver($FORM{$key});
}

Quote

Und werden wie folgt geprintet:

Code (perl): (dl )

open (MAIL, "|$mailprogamm -t") || die $!;

Quote

Code (perl): (dl )

1
2
3
4
5
6
7
8

print MAIL "To: $empfaengermail ($empfaenger)\n";
print MAIL "From: $email \n";
print MAIL "Subject: $betreff\n\n";
print MAIL $mailbodykontakt;
print MAIL "\n\n";
print MAIL "Gesendet am: $datumlang\n";
print MAIL "$maennlichoweiblich\n";
...

Quote

usw.

1
2
3
4
5
6
7
8
9
10
11

print MAIL <<"EOM";
To: $empfaengermail ($empfaenger);
From: $email
Subject: $betreff

$mailbodykontakt;

Gesendet am: $datumlang
$maennlichoweiblich
...
EOM

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem