Duda en PERL

Páginas: (1/1)

eLank0:

Buenas,

Veran, tengo el siguiente codigo en PERL:

adivina.pl

Código:
--
#!/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:

Citar
--
[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:
--
#!/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
Citar
--
chomp($entrada);
--

Ahora el problema esta en que no genera un ENTERO :(. Aki esta el LOG:

Citar
--
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:
--
$numero = rand(100);
--

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

Código:
--
$numero = int(rand(100));
--

saludosss  ;)

eLank0:

Ya funciona.

Gracias.

Salu2!! :D
 8)

Páginas: (1/1)