hola se me dio por aprender perl y aca les dejo mi primer programa :D
#!/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);
}
Cita de: Niko^ en 13 Diciembre 2010, 03:15 AM
hola se me dio por aprender perl y aca les dejo mi primer programa :D
Excelente decisión! :D, Perl es un gran lenguaje, ojalá hubiera más gente que se animara.
Saludos.