Problème de Thread

Bonjour,

Je travaille sur une application TK.

J'ai un soucis sur une partie.
J'exécute une commande à l'aide d'un telnet. Cette commande prend du temps pour s'exécuter (20 mins). Durant ce temps, je souhaite exécuter d'autres fonctions et afficher le résultat dans mon application.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sub fonction(){ #Je lance une commande qui va s'exécuter 20 mins par l'intermédiaire de telnet telnet..... print "Fonction très longue";   #Je veux lancer une autre fonction #Cette fonction lance une autre commande avec telnet, #récupère le résultat et l'affiche dans mon application   my $t1=threads->new(\&fonction2); $t1->join;   #Affichage du résultat de la commande très longue # dans mon application }

---

J'ai plusieurs problèmes.
Tout d'abord, mon application reste "bloquée", et le résultat d'exécution de la fonction 2 ne s'affiche pas dans mon application (je n'ai pas la main sur l'application).

Ensuite, j'ai un message d'erreur :

Code:

---

1 2 3

Thread 1 terminated abnormally : not a CODE reference at ... Free to wrong pool ....

---

Je ne comprends pas pourquoi.
Quand je teste mes 2 fonctions séparemment, il n'y a pas de soucis.

Vous avez une idée?
Merci,
Lucie

Je te recommande plutôt d'utiliser un fork(), de maintenir un pipe entre les deux (cf "perldoc perlipc") et de vérifier périodiquement avec select() s'il y a des données disponible sur ce pipe (Je crois même que Tk::FileEvent doit être capable de le faire pour toi).

--
Jedaï

Bonjour,

Merci pour la réponse.
Mais c'est vraiment compliqué. Je suis allée sur la perldoc, je vais faire des essais.
Je trouvais que les threads étaient plus simple à mettre en place.

Lucie

Bonjour,

Je travaille sur une application TK.

J'ai besoin de fork pour pouvoir lancer des fonctions durant l'exécution d'une autre.

Ma fonction ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

sub fonction(){ while (boucle non infinie){ #traitement de la fonction unless (fork){ fonction2(); } wait; #Je veux que la fonction2 soit terminée } }

---

Quand j'exécute, mon programme s'arrête net à l'instruction unless(fork).
Il ne veut pas exécuter le fork et je ne comprend pas pourquoi.

J'ai testé le fork dans un fichier vierge, ça marchait.
Mais quand je l'inclus à mon programme, ça ne fonctionne plus.

Vous avez une idée?

Merci,
Lucie