Hei folkens Jeg prøver å lære perl og har en enkel kalkulator Jeg prøver å kjøre, men jeg får feilmelding runaway multi-line. Kan noen poeng denne rookie i riktig retning.


# # #

print "Velkommen til Kalkulator ';
print "Vil du angi kalkulatoren? Vennligst skriv y eller n ';
$ kjøre \u003d <stdin>;
chomp $ kjøre;
while ($ kjøre \u003d\u003d y)
(
(
print "Legg til \u003d a | Trekk \u003d s | Multipliser \u003d m | Dividere \u003d d | Eksponent \u003d e | Mod \u003d O ';
print "Angi det tilsvarende tallet til caluclation å utføre: ';
$ calc \u003d <stdin>;
chomp $ calc;
print "Skriv inn den første verdien: ';
$ A \u003d <stdin>;
chomp $ A;
print "Angi den andre verdien: ';
$ B \u003d <stdin>;
chomp $ B;

if ($ calc \u003d\u003d a)
(
$ answer \u003d $ A + $ B;
)
elsif ($ calc \u003d\u003d s)
(
$ answer \u003d $ A - $ B;
)
elsif ($ calc \u003d\u003d m)
(
$ svar \u003d $ A * $ B;
)
elsif ($ calc \u003d\u003d d)
(
$ answer \u003d $ A / $ B;
)
elsif ($ calc \u003d\u003d e)
(
$ answer \u003d $ A ** $ B;
)
elsif ($ calc \u003d\u003d o)
(
$ svar \u003d $ B% $ B;
)
print "Svaret er $ svar.";
)
print "Vil du utføre en annen beregning? Vennligst skriv y eller n ';
$ kjøre \u003d <stdin>;
chomp \u003d $ kjøre;
)


print "Programmet er nå avsluttet. ';

# # #