Foro - Perl en Español

por **scout** » 2011-04-17 15:00 @667

Consulta rápida…, estoy armando una función y necesito dejarla corriendo en todo momento de la aplicación para que traiga los últimos cambios dentro de una carpeta y una base de datos y actualice una variable… ¿alguno conoce la forma en Perl?

Perfecto. El AnyEvent va fenómeno, accionando dos funciones, pero al querer poner el AnyEvent y las dos funciones en un simple formulario no me deja ya que el foco va a las funciones o al formulario, nunca quedan de fondo trabajando todos juntos... Bueno, si se les ocurre cómo destrabar esta situación se los agradeceré...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use AnyEvent;
use Gtk2 '-init';
my ( $programa, $ventana_principal, $etiqueta );
use constant TRUE  => 1;
use constant FALSE => !TRUE;
 
sub clicked {
    Gtk2->main_quit;
}
my $window = Gtk2::Window->new('toplevel');
$window->set_border_width(500);
$window->set_keep_above(TRUE);
$window->signal_connect( destroy => sub { Gtk2->main_quit } );
my $label  = Gtk2::Label->new('Sistema unificado de seguridad ');
my $button = Gtk2::Button->new('Salir');
$button->signal_connect( clicked => \&clicked );
my $vbox = Gtk2::VBox->new( 5, FALSE );
$vbox->pack_start( $label,  FALSE, FALSE, FALSE );
$vbox->pack_start( $button, FALSE, FALSE, FALSE );
$window->add($vbox);
$window->show_all;
Gtk2->main;
 
my $cv = AnyEvent->condvar;
my $w  = AnyEvent->timer( interval => 0.5, cb => primerarchivo {} );
my $x  = AnyEvent->timer( interval => 0.5, cb => ultimoarchivo {} );
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Función repetitiva mientras dure el programa

Función repetitiva mientras dure el programa

Publicidad

Re: Función repetitiva mientras dure el programa

Re: Función repetitiva mientras dure el programa

¿Quién está conectado?