Foro - Perl en Español

Hola estoy haciendo un programa que genera números mediante una función llamada &generacion. Lo que yo quiero hacer es que este código verifique constantemente si la función &generacion no devuelve un número que sea múltiplo de 10.


Una parte del código es esta:



Lo que yo quiero es que si la variable $ultimo que devuelve &generacion, no es múltiplo de 10, el código siga con la función &generacion constantemente hasta que devuelva un valor múltiplo de 10 y así salir del código.

¿Pero, cómo lo haría?

(no probado)

Gracias, ahora lo intenta siempre, pero la función &generacion devuelve el mismo número siempre y nunca da el correcto. ¿Cómo hago para que se actualicen las variables?

Publica el código que estás usando. Y sería recomendable el código de generacion(), por si tiene algo raro.

Según he puesto el bucle, las variables se actualizan en cada llamada a la función.

¿Cómo lo arreglo?

En tu línea:



Debería de ser:

De todas maneras... si lo que quieres es generar números aleatorios, de dos cifras, múltiplos de diez, se puede hacer de forma "aparente":

Gracias a los dos. Ahora otra duda sobre

return int $re;

¿Cómo hago para usar dos variables en el return?

porque hago return int($re,$re2); y me da error.

int (rand 10) * 10 no devuelve números del 1 al 100, sino del 0 al 90.