Buenas,
#!/usr/bin/perl
$numero = rand(100);
until ($entrada == $numero) {
print "Introduzca un numero del 1 al cien\n\n";
$entrada = <STDIN>;
chomp($entrada);
if ($entrada < $numero) {
print "El numero que has introducido es mas pequeño que MI numero :( \n\n";
}
elsif ($entrada > $numero) {
print "Tu numero es mas grande que el MIO :( \n\n";
}
}
print "Has acertado!!";
Ya funciona, me faltaba añadirle la linea
chomp($entrada);
Ahora el problema esta en que no genera un ENTERO
. Aki esta el LOG:
Introduzca un numero del 1 al cien
79
El numero que has introducido es mas peque±o que MI numero
Introduzca un numero del 1 al cien
80
Tu numero es mas grande que el MIO
Introduzca un numero del 1 al cien
Necesito hacer que haga numeros ENTEROS.
Gracias.
Salu2!