2016-01-23T11:49:27
GwenDragonAch so, du hast Windows udn 64bit-Perl. das wußte ich nicht. Aber du warst ja so klug zu wissen, was tu tun musst. :)
Zu den Berechnungen, zeig doch mal wie der Teil deines Codes aussieht wo du berechnest.
Hallo.
Meintest du das Hier?
if (length($zahl1) and length($zahl2) and length($operator)) {
$ergebnis = 'NaN';
# berechne je nach Operator
$ergebnis = $zahl1 * $zahl2 if $operator eq '+';
$ergebnis = $zahl1 * $zahl2 if $operator eq '-';
$ergebnis = $zahl1 * $zahl2 if $operator eq '*';
$ergebnis = $zahl1 * $zahl2 if $operator eq '/';
$ergebnis = $zahl1 * $zahl2 if $operator eq '%';
$ergebnis = $zahl1 * $zahl2 if $operator eq '**';
print "<p>Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis</p>";