#!C:\Perl64\bin\perl.exe -w use strict; use warnings; use CGI (); my $cgi = CGI::new; my $zahl1 = $cgi->param('Zahl1'); my $zahl2 = $cgi->param('Zahl2'); my $operator = $cgi->param('Rechenart'); my $ergebnis; print $cgi->header(); print <
HTML 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 "Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis
"; } else { print <Zahl 1:
Zahl 2:
Rechenart: