Duda en PERL

[eLank0]

Buenas,

Veran, tengo el siguiente codigo en PERL:

adivina.pl

Código [Seleccionar] Expandir

#!/usr/bin/perl

$numero = rand(100);

until ($entrada == $numero) {

print "Introduzca un numero del 1 al cien";

$entrada = <STDIN>;

if ($entrada < $numero) {

print "El numero que has introducido es mas pequeño que MI numero :( ";

}

elsif ($entrada > $numero) {

print "Tu numero es mas grande que el MIO :(";

}

}

print "Has acertado!!";


Cuando lo ejecuto, se bloquea el bucle y no para de salir texto...

Haber si alguien sabe que pude pasar.

Salu22!!

[bano]

lo he compilado y me va perfectamente ...

aqui te dejo el log:

[bano@localhost bano]$ perl elanko.pl
Introduzca un numero del 1 al cien50
Tu numero es mas grande que el MIO :(Introduzca un numero del 1 al cien25
El numero que has introducido es mas pequeño que MI numero Introduzca un numero del 1 al cien33
El numero que has introducido es mas pequeño que MI numero Introduzca un numero del 1 al cien43
El numero que has introducido es mas pequeño que MI numero Introduzca un numero del 1 al cien47
Tu numero es mas grande que el MIO :(Introduzca un numero del 1 al cien45
Tu numero es mas grande que el MIO :(Introduzca un numero del 1 al cien44
El numero que has introducido es mas pequeño que MI numero Introduzca un numero del 1 al cien
[bano@localhost bano]$

saludosss 
psd: te quedaria poner "ACERTASTE MI NUMERO !!" o algo asi ... XDD

[eLank0]

Buenas,

Código [Seleccionar] Expandir


#!/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!

[bano]

Tu tienes:

Código [Seleccionar] Expandir

$numero = rand(100);

Para que el numero aleatorio que "invente" el programa sea un numero entero seria:

Código [Seleccionar] Expandir

$numero = int(rand(100));

saludosss 

[eLank0]

Ya funciona.

Gracias.

Salu2!!
8)