Perl

Plantage appli perl/tk lors d'une boucle ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Plantage appli perl/tk lors d'une boucle ?

sygn

bonjour,

je fait une appli en perl:tk sous windows.
Dans cette appli, j'ai une boucle qui attend la creation d'un fichier texte. Cependant, lors de cette boucle, mon appli tk plante (je n'ai pas la main).
je debute en perl et je ne vois pas trop comment eviter ce probleme.
merci

Code :

do{
$texte="Attente";
$message -> configure ( -text => $texte ) ;
}
until( not -z "result.txt" ) ;

Publicité

pospos

si tu boucle tu ne laisse plus Tk gerer ses evenements (rafraichissement, etc...)

bon deja dans ta boucle tu n'a pas à remettre le texte en permanance, il te suffit de trouner dans le vide:

Code :

$message->configure(-text => "Attente" );
1 while ( -z "result.txt" );
$message->configure(-text => "Ok" );

ensuite si tu faix ca tu va utiliser 100% de ton CPU à tourner comme un fou pour pas grand chose. Donc tu peux deja ajouter des petites pauses:

Code :

$message->configure(-text => "Attente" );
while ( -z "result.txt" ) {
select(undef,undef,undef, 0.01);
}
$message->configure(-text => "Ok" );

le select(undef,undef,undef, 0.01) va simplement faire une pause de 0.01 seconde

ensuite il faudrait que tu permete à Tk de gerer ses evenements pendant que tu boucle:

Code :

# $mw = fenetre principale
$message->configure(-text => "Attente" );
while ( -z "result.txt" ) {
select(undef,undef,undef, 0.01);
$mw->update;
}
$message->configure(-text => "Ok" );

et ensuite, le fin du fin serais de ne pas avoir de boucle mais de demander à Tk de gerer cette attente lui meme, avec ses timer:

Code :

# $mw = fenetre principale
$message->configure(-text => "Attente" );
my $timer;
# toutes les 100ms, ca doit deja largement suffire
$timer = $mw->repeat(100, sub{
if (not -z "result.txt" ) { # ou if -s...
$timer->cancel; # on cancel le timer pour ne plus qu'il tourne
$message->configure(-text => "Ok" );
...
}
});

pospos

mais bon dans tous les cas cette solution n'est pas nonplus optimale car la commande -z (stat en fait) est bloquante: si le fichier se trouve sur un support tres lent (genre disquette) alors ca risque de bloquer qq instant à chaque fois (mais rien à voir avec ton probleme actuel, je te rassure). Dans ce cas il faudrait utiliser la fonction filevent de Tk, mais elle est assez foireuse (surtout sous Windows). Le problème c'est que les operations sur le systeme de fichiers sont toujours synchrones.
Si tu es sous Linux tu peux toujours utiliser la fonction aio_stat de Linux::AIO...
Enfin bon je pense pas que ce soit vraiment ce dont tu a besoin nonplus!

Enfin pour le fun:

Code :

use Linux::AIO;
$message->configure(-text => "Attente" );
wait_size("result.txt", \&fichier_ok);
sub wait_size {
my ($fichier, $cb) = @_;
aio_stat($fichier, sub{
if (-z _) {
$mw->after(100, [\&wait_size, $fichier, $cb]);
} else {
$cb->($fichier);
}
});
}
sub fichier_ok {
my $fichier = shift;
$message->configure(-text => "Ok" );
...
}

Message édité par pospos le 24-08-2004 à 14:31:52

sygn

j'suis en admiration devant tant d'attention....:love:

j'ai essayé tes solutions (sauf la dernère je suis sur windows).
la 3ème :

Code :

# $mw = fenetre principale
$message->configure(-text => "Attente" );
while ( -z "result.txt" ) {
select(undef,undef,undef, 0.01);
$mw->update;
}
$message->configure(-text => "Ok" );

est la meilleure, la dernière avec le repeat ne marche pas?? :??:
c pas super fluide mais c correct
merci

pospos

bizarre que la version avec le timer ne marche pas...
j'ai pas testé mais dans le principe ca doit fonctionner (et c'est la meilleur solution)

sinon pour la solution avec le select, si tu veux un truc plus fluide met 0.001 à la place de 0.01, mais ca risque de mettre ton system de fichier sur els rotules (c'est d'ailleurs sans doute deja pour ca que ca rame, donc ca changera rien)

Donc le mieux c'est de faire moins de tests sur le fichier, par exemple seulement une fois sur 100, tout en bouclant plus souvent:

Code :

# $mw = fenetre principale
$message->configure(-text => "Attente" );
my $i=0;
for(;;) {
unless (++$i%100) {
# test le fichier toutes les 100*0.001 = 0.1 secondes
last unless -z "result.txt";
}
$mw->update;
select(undef,undef,undef, 0.001);
}
$message->configure(-text => "Ok" );

si tu peux meme tester le fichier encore moins souvent (genre ++$i%500 pour 0.5s) ca sera encore mieux

mais bon, ca vaut pas un vrai timer Tk

sygn

tu as raison, le timer marche très bien.
en fait l'erreur vient de moi, je me suis trompé de problème. :pt1cable:
je croyais que c'etait l'attente d'un fichier qui buggait mon appli, en fait non...
j'execute juste avant l'attente de ce fichier un exe qui prend beaucoup de temps.je croyais que cette execution etait indépendante de mon appli perl/tk.
donc le pb existe toujours...
je remet donc le pgr avec l'executable.

Code :

print `pgr.exe $a $b $c >result.txt ` ;
while (-z "result.txt" ) {
select(undef,undef,undef, 1);
$fenetre->update;
};

l'exe prg.exe dure de 20s a 5min et c bien lui qui fait planter l'appli.
si tu vois une solution ca m'interesse. :sarcastic:

pospos

ha ouai, un programme externe c'est plus chiant...
tu peux utiliser la commande system(1,...)

c'est une version non documenté de 'system' (et qui marche peut etre que sous activePerl, mais comme j'imagine que c'est ce que tu utilise tout va bien)

en fait c'est un 'system' non bloquant: il lance un processus independant (utilisant la meme console)

donc tu fais simplement:
system(1, "pgr.exe $a $b $c >result.txt" );
while...

mais pour le select met tout de meme autre chose que 1s, sinon il ne rafraichira la fenetre Tk que une fois par seconde. pour l'instant tu ne le vois pas car l'execution de l'exe bloque et le fichier result.txt est remplie kand ca ne bloque plus, mais avec system(1,...) il faudra effectivement que tu attende que le fichier se remplisse (avec le timer)

sygn

salut,
c bon c'etait bien ca.
je te remercie
a+

FORUM HardWare.fr

Programmation

Perl

Plantage appli perl/tk lors d'une boucle ?

Sujets relatifs
Partager des données entre plusieurs appli-web	construction d'un boucle
Problème avec un boucle For Each et une fonction recursive	[VC++] Changer le curseur au lancement d'une appli (busy)
[Perl] Programmation XS	faire une barre de progression pour chargement appli[Applet]
[C] plantage a la liberation de la memoire	detecter la fin dune appli win32
boucle avec attributs	[Perl] est-il possible d'exécuter une application Perl sur un hébergeu
Plus de sujets relatifs à : Plantage appli perl/tk lors d'une boucle ?

Page générée en 0.046 secondes