Wert einer Variable = Wert einer Variable - #74936 (Allgemeines zu Perl)

Gast Gast

2007-03-12 14:26

Hallo allerseits,

ich hoffe mal, das mir jemand weiter helfen kann, denn momentan stehe ich auf dem schlauch.

Ich habe eine Datei, die ich als Array einlese

Code: (dl )

open (DATEI, "Adressen") or die "Kann Datenquelle nicht finden/oeffnen: $!\n";
flock (DATEI, 2);
@array = <DATEI>;
close (DATEI);

Die Datei ist wie folgt aufgebaut

geschlecht,name,email-adresse

Das splitte ich in 3 Variablen auf

Code: (dl )

foreach $zeile (@array) {
# Zeilenumbruch entfernen
chomp $zeile;
# Die einzelnen Elemente zuweise - Liste ist komma-separated, daher /,/
($sex, $name, $email) = split(/,/, $zeile);

So, nun möchte ich mir eine Anrede bauen, je nachdem ob sex m oder w ist soll die Anrede sein

Sehr geerhter Herr $name,

oder

Sehr geehrte Frau $name,

anschliessen soll der Body kommen, den ich ebenfalls als Array aus einer Textdatei einlese

Code: (dl )

# Message-Body
open (TEXT, "text") or die "Kann Datenquelle nicht finden/oeffnen: $!\n";
@arraybody = <TEXT>;
close (TEXT);

Also zusammengefasst: Der Wert von $message_body soll sein

Sehr geehrter Herr $name --> wenn sex eq "m"
+@arraybody

oder

Sehr geehrte Frau $name --> wenn sex eq "w"
+@arraybody

Hat jemand vielleicht einen Tipp für mich, wie ich das realisieren kann ?

Vielen Dank und viele Grüße