[Perl](Calculadora) Mi primer programa

[Niko^]

hola se me dio por aprender perl y aca les dejo mi primer programa

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
# Calculadora By Ghost! (Niko^)
# Primer Programa 12 Diciembre


print q("Opciones:
1. Sumar
2. Retar
3. Dividir
4. Multiplicar
5. Salir");
$opcion=<stdin>;

if ($opcion == 1){
print "ingrese el primer numero: ";
     $var=<stdin>;

print "ingrese el segundo numero: ";
     $var2=<stdin>;

$resultado = $var + $var2;

print "el resultado es $resultado";
}
elsif ($opcion == 2){
print "ingrese el primer numero: ";
     $var=<stdin>;

print "ingrese el segundo numero: ";
     $var2=<stdin>;

$resultado = $var - $var2;

print "el resultado es $resultado";

}
elsif ($opcion == 3){
print "ingrese el primer numero: ";
     $var=<stdin>;

print "ingrese el segundo numero: ";
     $var2=<stdin>;

$resultado = $var / $var2;

print "el resultado es $resultado";

}
elsif ($opcion == 4){
print "ingrese el primer numero: ";
     $var=<stdin>;

print "ingrese el segundo numero: ";
     $var2=<stdin>;

$resultado = $var * $var2;

print "el resultado es $resultado";
}
else{
exit(1);
}

[leogtz]

hola se me dio por aprender perl y aca les dejo mi primer programa

Excelente decisión! , Perl es un gran lenguaje, ojalá hubiera más gente que se animara.

Saludos.