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 '*'; # und weitere .... wie für * nur mit anderem Operator hier einfügen print "Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis
"; } else { print <Zahl 1:
Zahl 2:
Rechenart: