Imprimir Página - Duda en PERL

Título: Duda en PERL
Publicado por: eLank0 en 29 Agosto 2004, 20:42 pm

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

Título: Re: Duda en PERL
Publicado por: bano en 29 Agosto 2004, 21:33 pm

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

Título: Re: Duda en PERL
Publicado por: eLank0 en 30 Agosto 2004, 07:43 am

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!

Título: Re: Duda en PERL
Publicado por: bano en 30 Agosto 2004, 09:14 am

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 ;)

Título: Re: Duda en PERL
Publicado por: eLank0 en 30 Agosto 2004, 10:02 am

Ya funciona.

Gracias.

Salu2!! :D
8)

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: eLank0 en 29 Agosto 2004, 20:42 pm