# Einlesen


print "Bitte 2 Zahlen (mit Komma getrennt) eingeben:\n";

while(<>)
  {
    chop;
    ($wert1,$wert2) = split(/,/,$_);

# split: Perlfunktion, die eine Zeichenkette an vorgegebenen Trennern in eine Liste aufspaltet
# split ist eine Funktion, die (mind.) 2 Argumente hat:
# das Muster an dem "gesplittet" werden soll, beginnt mit / und endet mit /
# in diesem Fall ist also das Komma der Trenner
# das zweite Argument ist die Zeichenkette, die "gesplittet" werden soll
# in diesem Fall also die aktuelle Eingabe
# das Ergebnis von split (= der R&uuml;gabewert) ist eine Liste
# in diesem Fall gehen wir also davon aus, dass genau 2 Werte durch Komma getrennt (Vorsicht: keine Leerzeichen dazwischen!) eingegeben werden
# Sie koennen ja einmal testen, was passiert, wenn Sie mehr als 2 Werte eingeben!
    $resultat = $wert1 + $wert2;
    print "Ergebnis: $resultat\n";
  }



