Hola chicos estoy tratando de aprender perl y una simple calculadora Estoy tratando de correr pero me sale el error galopante multi-línea. ¿Puede alguien de este punto novato en la dirección correcta.


# # #

imprimir 'Bienvenido a la calculadora ";
de impresión "¿Le gustaría entrar en la calculadora? Por favor, Tipo y or n ";
$ run \u003d <STDIN>;
chomp $ plazo;
while ($ ejecutar \u003d\u003d y)
(
(
de impresión en 'Añadir un \u003d | \u003d Restar s | \u003d m Multiplicar | Dividir \u003d d | Exponente \u003d e | MOD \u003d O';
imprimir "Ingrese el número correspondiente a la caluclation a realizar: ';
$ calc \u003d <STDIN>;
chomp $ calc;
imprimir 'Por favor, introduzca el primer valor:';
$ A \u003d <STDIN>;
chomp $ A;
imprimir 'Por favor, introduzca el segundo valor:';
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)
(
answer \u003d $ $ $ A * B;
)
elsif ($ calc \u003d\u003d d)
(
$ respuesta \u003d $ A / $ B;
)
elsif ($ calc \u003d\u003d e)
(
$ respuesta \u003d $ A $ B **;
)
elsif ($ calc \u003d\u003d o)
(
answer \u003d $% $ A $ B;
)
print "La respuesta es $ respuesta".
)
de impresión "¿Le gustaría realizar otro cálculo? Por favor, Tipo y or n ";
$ run \u003d <STDIN>;
chomp $ \u003d plazo;
)


imprimir "La aplicación está terminada».

# # #