Foro - Perl en Español

por **BigBear** » 2010-09-21 19:50 @868

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tk;

$ven= MainWindow->new;

$ven->Button(-text=>"Conta",-command=>\&contar)->pack();
$ven->Button(-text=>"Para",-command=>\&para)->pack();


MainLoop;

sub contar {
for(1..99999){
$ven->update;
print"hola mundo";
}
}

sub para {

}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Tk;
 
my $contar = 0;
 
my $ven = MainWindow->new;
 
$ven->Button(-text => "Conta", -command => \&contar)->pack();
$ven->Button(-text => "Para",  -command => \&parar) ->pack();
 
MainLoop;
 
sub contar {
    $contar = 1;
 
    for (1 .. 99999) {
 
        $ven->update;
 
        return if not $contar;
 
        print "hola mundo ";
    }
}
 
sub parar {
    $contar = 0;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2010-09-23 09:35 @441

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?

por **explorer** » 2010-09-23 12:24 @558

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Tk;
 
my $contar = 0;
 
my $ven = MainWindow->new;
 
$ven->Button(-text => "Conta", -command => \&contar)->pack();
 
MainLoop;
 
sub contar {
    $contar = !$contar;          # le damos al interruptor de la luz
 
    while ($contar) {            # si la bombilla está encendida...
 
        $ven->update;
 
        print "hola mundo ";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

por **BigBear** » 2010-09-23 17:35 @774

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?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use warnings;
use diagnostics;
 
use Tk;
 
my $contar = 0;
 
my $ven = MainWindow->new;
 
$ven->Button(-text => "Conta", -command => \&contar)->pack();
 
MainLoop;
 
sub contar {
    $contar = !$contar;
    while ($contar) {
        $ven->update;
 
        for (1..11111) {
            $ven->update;
            print "hola mundo ";
        }
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-09-23 17:46 @781

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.

Foro - Perl en Español

Parar cierta función en Tk

Parar cierta función en Tk

Publicidad

Re: Parar cierta función en Tk

Re: Parar cierta función en Tk

Re: Parar cierta función en Tk

Re: Parar cierta función en Tk

Re: Parar cierta función en Tk

¿Quién está conectado?