Foro - Perl en Español

Hola a todos.

Tengo una duda que siempre tuve porque tengo una ventana Tk que en un botón imprime un montón de veces hola mundo y otro que debería parar solo la función, pero no salir del programa.


Viendo el código no hay una forma de poder hacer lo que quiero.

Te podría servir utilizar una variable global que controle el proceso de pintado:

Hola explorer, gracias por tu respuesta, pero tengo otra duda, ¿cómo puedo hacer lo mismo que me enseñaste a hacer en el anterior post pero sin que haya el botón "Parar", sino que con presionar de nuevo el botón contar se pare si es que estaba activado?

Una solución sencilla sería incorporar el interruptor en la misma llamada del botón:

De todas maneras, la solución "profesional", sería usando POE. Hay un ejemplo que muestra un contador parecido a lo que quieres hacer, pero usando la multitarea de POE.

Es muy posible que exista otra solución para este problema, usando Perl y Tk. El problema es conciliar la ejecución de un bucle infinito con la ejecución de los eventos lanzados por el usuario. En la solución que te doy, el usuario, cuando pulsa dos veces el botón de Contar, estamos realmente lanzando dos veces la rutina de contar(). Pero el resultado es que funciona como esperamos porque cuando el usuario quiere parar la presentación (en la segunda pulsación), cambiamos la bandera (o semáforo), y eso hace que los dos while() (de las dos llamadas a la función contar()) fallen, por lo que terminan enseguida. Pero esto no quiere decir que exista una multitarea real.

Lo dicho, es mejor usar POE para estos casos de multitarea. O quizás una solución con fork() o con Threads.

Explorer, ¿me podrías decir cuál es el error del código porque no me para el script cuando lo quiero cancelar como en tu código anterior?

El problema es que no tienes puesto un control de parada de bucle dentro del bucle for().

Podrías poner una línea con un return() como te he indicado antes.