Probleme d'affichage perl/tk

Marsh Posté le 11-06-2008 à 09:04:37

Bonjour,

J'ai un ti problème pour afficher un label. J'aimerais afficher un Label disant "Traitement en cours veuillez patienter" puis en meme temps faire un ping puis afficher le résultat. Le problème c'est qu'au lieu d'afficher mon label puis de faire le traitement, il me fait le traitement du ping et une fois fini il m'affiche mon label ainsi que mon résultat. J'ai déja essayé pas mal de choses mais rien n'y fait .

Code :

sub fonc_stat {
$txtattente = $mw->Label(-text=> "Traitement en cours veuillez patienter...", -font=>15)->place(-x=>250, -y=>175);
my @argent=@_;
$connecte=0;
$nonconnecte=0;
open(FILE,"C:/Perl/bin/$argent[0]" ) || die ("Erreur d'ouverture du fichier" );
while (<FILE> ) {
$host = $_;
$toto = system("ping -n 1 ".$host);
if ($toto==0) {
$connecte++;
}
else {
$nonconnecte++;
}
}
print "Il y a $connecte pc d allumes et $nonconnecte pc d eteints";
close(FILE);
}

Merci d'avance.

Reply

Marsh Posté le 11-06-2008 à 09:04:37

Reply

Marsh Posté le 16-06-2008 à 08:55:52

Personne?

Reply

Marsh Posté le 17-06-2008 à 19:32:14

C'est normal:
Comme tu peux le voir sur cet exemple, tu crées les objets tk, mais il ne sont affichés que lors de l'execution de la main loop.

Code :

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello HFR! [GUI Mode]" ) -> pack();
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit }) -> pack();
printf("Hello HFR! [Text Mode]\n" );
sleep(4);
MainLoop;

Par contre, si tu met le code que tu veux executer comme dans callback appellé par ton objet tk, tu auras execution apres l'affichage:

Code :

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello HFR! [GUI Mode]" ) -> pack();
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit }) -> pack();
$mw->after(4000, \&testProgram);
MainLoop;
sub testProgram {
printf("Hello HFR! [Text Mode]\n" );
}

Ici, "Hello HFR! [Text Mode]" s'affiche 4s apres l'affichage de la fenetre.
Tu vois le principe.

A+,

Message édité par gilou le 17-06-2008 à 20:49:16

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Reply

Marsh Posté le 18-06-2008 à 09:10:10

Merci gilou

Reply

Probleme d'affichage perl/tk

Sujets relatifs:

Leave a Replay