#!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:

HTML } print < HTML