Hallo jongens ik probeer te leren perl en hebben een eenvoudige rekenmachine ik probeer te lopen, maar ik krijg fout wegloper multi-line. Kan iemand dit punt groentje in de goede richting.


# # #

print 'Welkom op de Rekenmachine';
print 'Wilt u op de rekenmachine? Typ y of n ";
$ run \u003d <STDIN>;
chomp $ uitvoeren;
while ($ run \u003d\u003d y)
(
(
print 'Add \u003d a | Subtract \u003d s | Vermenigvuldigen \u003d m | Verdeel \u003d d | Exponent \u003d e | Mod \u003d O';
print "Voer het corresponderende nummer op de caluclation te worden uitgevoerd: ';
$ calc \u003d <STDIN>;
chomp $ calc;
print "Voer de eerste waarde:";
$ A \u003d <STDIN>;
chomp $ A;
print 'Geef het tweede waarde: ";
$ B \u003d <STDIN>;
chomp $ B;

if ($ calc \u003d\u003d a)
(
$ antwoord \u003d $ a + $ b;
)
elsif ($ calc \u003d\u003d s)
(
$ antwoord \u003d $ A - $ B;
)
elsif ($ calc \u003d\u003d m)
(
$ antwoord \u003d $ A * $ B;
)
elsif ($ calc \u003d\u003d d)
(
$ antwoord \u003d $ A / $ B;
)
elsif ($ calc \u003d\u003d e)
(
$ antwoord \u003d $ A ** $ B;
)
elsif ($ calc \u003d\u003d o)
(
$ antwoord \u003d $ A% $ B;
)
print "Het antwoord is $ antwoord.";
)
print 'Wilt u een andere berekening uit te voeren? Typ y of n ";
$ run \u003d <STDIN>;
chomp \u003d $ termijn;
)


print "De aanvraag is nu beëindigd.";

# # #