Buenas,
Veran, tengo el siguiente codigo en PERL:
adivina.pl
#!/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!!
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
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
Citarchomp($entrada);
Ahora el problema esta en que no genera un ENTERO :(. Aki esta el LOG:
CitarIntroduzca 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!
Tu tienes:
$numero = rand(100);
Para que el numero aleatorio que "invente" el programa sea un numero entero seria:
$numero = int(rand(100));
saludosss ;)
Ya funciona.
Gracias.
Salu2!! :D
8)