Salut ,
voici le probléme que je recontre :
je voudrais créer une interface en perl TK qui sera partagé entre plusieurs thread.
Exple : un thread qui fait un ping continue , une fois il y reponse il affiche un Label dans le Mainwindow .
Je ne sais pas si c possible ou pas ?
#########################################
use Tk;
use threads;
use threads::shared;
my $main : shared ;
$main = &share(MainWindow->new()) ;
$main->title("Application TEST");
$thr_ping = threads->new( \&isAlive, '192.168.1.1');
MainLoop;
sub isAlive() {
my ($host) = shift;
$ping = Net:ing->new("icmp");
while (1) {
if ( $ping->ping( $host, 2 ) ) {
$ping->close();
$host_pinged = 1;
$main->Label(-text=>'HOST is Found ')->pack() ;
return 1;
}
}
}
##########################################
Voila merci pour votre aide.
Partager