1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
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; <html> <body> 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 "<p>Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis</p>"; } else { print <<HTML; <form action="#" method="post"> <p>Zahl 1: <input size="4" maxlength="3" name="Zahl1"> <br> Zahl 2: <input size="4" maxlength="3" name="Zahl2"> <br> Rechenart: <input size="2" maxlength="3" name="Rechenart"> <br> <input type="SUBMIT" value="Berechnen"> </p> </form> HTML } print <<HTML; </body> </html> HTML