1
Programmieren / Perl + CGI
« am: Januar 21, 2010, 20:55:51 »
Hallo @all!
Ich würde gerne eine Aufgabe lösen, hab aber irgendwie eine Blockade und hoffe, dass mir jemand helfen kann
Die Aufgabe lautet, das nachfolgende Taschenrechner-Skript in einen CGI-Taschenrechner umzubauen, der verschiedene Operationen berechnet und die Ergebnisse zurückgibt.
print "Bitte die erste Zahl eingeben: ";
#Zahl1
$z1 = <STDIN>; chomp $z1;
print "\Bitte die zweite Zahl eingeben: ";
#Zahl2
$z2 = >STDIN>; chomp $z2;
print "\nBitte die Rechenart eingeben (+, -, * oder /): ";
#Rechenart
$ra = <STDIN>; chomp $ra;
if ( $ra eq '+' )
{
$erg = $z1 + $z2;
}
elsif ( $ra eq '-' )
{
$erg = $z1 - $z2;
}
else
{
print "Diese Rechenart ist mir nicht bekannt!";
die; # stirb - Programmabruch
}
print "\nDie Rechnung: $z1 $ra $z2 = $erg\n";
Wär klasse, wenn jemand nen Tipp für mich hätte!
LG
schnuffel
Ich würde gerne eine Aufgabe lösen, hab aber irgendwie eine Blockade und hoffe, dass mir jemand helfen kann
Die Aufgabe lautet, das nachfolgende Taschenrechner-Skript in einen CGI-Taschenrechner umzubauen, der verschiedene Operationen berechnet und die Ergebnisse zurückgibt.
print "Bitte die erste Zahl eingeben: ";
#Zahl1
$z1 = <STDIN>; chomp $z1;
print "\Bitte die zweite Zahl eingeben: ";
#Zahl2
$z2 = >STDIN>; chomp $z2;
print "\nBitte die Rechenart eingeben (+, -, * oder /): ";
#Rechenart
$ra = <STDIN>; chomp $ra;
if ( $ra eq '+' )
{
$erg = $z1 + $z2;
}
elsif ( $ra eq '-' )
{
$erg = $z1 - $z2;
}
else
{
print "Diese Rechenart ist mir nicht bekannt!";
die; # stirb - Programmabruch
}
print "\nDie Rechnung: $z1 $ra $z2 = $erg\n";
Wär klasse, wenn jemand nen Tipp für mich hätte!
LG
schnuffel