ich soll einen Taschenrechner in perl mit punkt vor strichrechnung coden, komme da allerdings nicht weiter wäre nett wenn jemand eine lösung hätte.
Script:
#!/usr/bin/perl<
# Taschenrechner by Justin!
print "Bitte Zahl eingeben: ";
chomp($zahl1 = );
print "Rechenart eingeben (+,-,/,*)";
chomp($rechenart1 = );
print "Zweite Zahl eingeben: ";
chomp($zahl2 = );
print "Rechenart eingeben (+,-,/,*)"; #Das ist für die
chomp($rechenart2 = ); #Punkt vor
print "Dritte Zahl eingeben: "; #Strich
chomp($zahl3 = ); #Rechnung
if($rechenart1 eq '+') {
print "\nAddition wird durchgefuehrt.\n";
$ergebnis = &addition($zahl1, $zahl2);
}
elsif($rechenart1 eq '-') {
print "\nSubtraktion wird durchgeführt.\n";
$ergebnis = &subtraktion($zahl1, $zahl2);
}
elsif($rechenart1 eq '*') {
print "\nMultiplikation wird durchgeführt.\n";
$ergebnis = &multi($zahl1, $zahl2);
}
elsif($rechenart1 eq 'x') {
print "\nMultiplikation wird durchgeführt.\n";
$ergebnis = &multi($zahl1, $zahl2);
}
elsif($rechenart1 eq '/') {
print "\nDivision wird durchgeführt.\n";
$ergebnis = &division($zahl1, $zahl2);
}
elsif($rechenart1 eq ':') {
print "\nDivision wird durchgeführt.\n";
$ergebnis = &division($zahl1, $zahl2);
}
#Keine Ahnung wie ich das mit der Punkt- vor Strichrechnung machen soll
sub addition {
($_[0] + $_[1]);
}
sub subtraktion {
($_[0] - $_[1]);
}
sub multi {
($_[0] * $_[1]);
}
sub division {
}
print "Das Ergebnis Ihrer Rechnung: " . $ergebnis . "!!!\n";
