#!/usr/bin/perl
use 5.008;
use strict;
use warnings;
# Grobkonzept
use CGI;
my $cgi = CGI->new();
my $zahl_1 = $cgi->param('Zahl1');
my $zahl_2 = $cgi->param('Zahl2');
my $rechenart = $cgi->param('Rechenart');
my $ergebnis = 0;
sub Berechne {
my $z1 = shift;
my $z2 = shift;
my $ra = shift;
chomp($z1);
chomp($z2);
chomp($ra);
my $erg;
if ( $ra eq '+' )
{
$erg = $z1 + $z1;
}
elsif ( $ra eq '-' )
{
$erg = $z1 - $z2;
}
elsif ( $ra eq '*' )
{
$erg = $z1 * $z2;
}
elsif ( $ra eq '/' )
{
if ($z2 != 0) {
$erg = $z1 / $z2;
}
else {
$erg = "Zweite Zahl darf nicht 0 sein!";
}
}
else {
$erg = "Rechenart '$ra' unbekannt!";
}
return $erg;
}
print $cgi->header;
if ( length($zahl_1)
and length($zahl_2)
and length($rechenart)
)
{
$ergebnis = Berechne($zahl_1, $zahl_2, $rechenart);
print <<"HTML";
Antwortseite des CGI-Programms
$ergebnis
HTML
}
else {
print <<"HTML";
Taschenrechner
Taschenrechner
HTML
}