Foro - Perl en Español

Hace unos días comencé con Perl, y hace un rato decidí hacer una calculadora simple. Acá van extractos del código:


El output me da la salida de todos los if(), siempre entra en todos los if() y no logro darme cuenta de porqué. Solo deseo averiguar qué es lo que está haciendo entrar en cada if(); ya he probado de las maneras que me imaginé en cada momento, pero en todas entraba. Les dejo esto, que me parece una mágnifica excusa para registrarme en el sitio.

Saludos

Creo que para evaluar cadenas se utiliza eq en lugar de ==. Y que para este caso te faltaría sacar el salto de línea \n también.

Otra forma de hacer una calculadora podría ser (no probado):

Bienvenido a los foros de Perl en Español, SunlightRider.

Efectivamente, SunlightRider, como te comenta netsoul, el problema es que los operadores de comparación de igualdad que estás usando son numéricos. Eso implica que Perl hará la conversión a número de todas las cadenas de caracteres que les rodean. Así, por ejemplo,

if ($operador == "+") {

se transforma en

if (0 == 0) {

con lo que, siempre es cierto, y la consecuencia del if() se ejecuta.

Si quieres hacer comparaciones de cadenas debes usar la familia de operadores para cadenas: eq, ne, lt, gt, ge, le y cmp.

Y también no olvides lo del retorno de carro: lo que estás leyendo desde el teclado viene acompañado de ese carácter, así que deberás quitárselo antes:

Gracias por la bienvenida y las soluciones. Cuando estaba intentando resolver el problema por mi mismo, me imaginé que estaba comparando cadenas de texto y usé "eq" en vez de "==", pero me traía el mismo resultado. Lo que sí no usé fue chomp() para quitar la nueva línea.

[Chomp + eq], logró que todo funcionara.

Saludos

También podrías poner if() y luego elsif() en el resto para que solo te entre en uno de los if(); así te ahorrarías comparaciones, aunque funcionar, te funcionará igual.