Taschenrechner

[EatFish]

Hi,

Sry wenn das jetzt für ein paar komisch ist, nur was ist hier Falsch?



#!/usr/bin/perl

# Taschenrechner
# by EatFish

print "Geben sie eine Zahl an:"

$Zahl1 = <STDIN>;
chomp ($Zahl1)

print "Welche Rechenart möchten sie durchführen?"

$art = <STDIN>;
chomp ($art)

print "Geben sie die zweite Zahl ein:"

$Zahl2 = <STDIN>;
chomp ($Zahl2)

if ($art <= +) {
$Ergebnis = $Zahl1 + $Zahl2
}

print "$Ergebnis"





mfg EatFish

[kat23]

Abgesehen vom schlechten Syntax hast du sämtliche Semikolons weggelassen und das hier:


if ($art <= +) {

... ist auch Unsinn. Hier, so läufts:


#!/usr/bin/perl

# Taschenrechner
# by EatFish

print "Geben sie eine Zahl an:";

$Zahl1 = <STDIN>;
chomp ($Zahl1);

print "Welche Rechenart möchten sie durchführen?";

$art = <STDIN>;
chomp ($art);

print "Geben sie die zweite Zahl ein:";

$Zahl2 = <STDIN>;
chomp ($Zahl2);

if ($art eq "+") {
$Ergebnis = $Zahl1 + $Zahl2;
}

print "$Ergebnis";

[EatFish]

Hab lange gesucht , nur auf die Semikolons bin ich net gekommen danke

[DrWhiteLetter]

Wenn du


use warnings;
use strict;

nutzen würdest, hättest du mehr Hinweise auf Fehler und und passieren auch weniger.