Perl : Processus

Bonjour,

Je suis confrontée à un problème assez délicat.

Je travaille à la création d'une application TK.

Je souhaitera pouvoir réaliser celà :

Code:

---

1 2 3 4 5 6 7

sub fonction(){ while(){ #Traitement long de la fonction et qui utilise un telnet->print pour envoyer des commandes au terminal   #Effectuer à intervalle de temps régulier une autre fonction (utilisant le protocole telnet pour envoyer et recevoir des informations d'une autre machine) et afficher le résultat à l'écran de cette seconde fonction pendant que la 1e fonction s'exécute (20 mins d'exécution) } }

---

J'ai codé les 2 fonctions, les fonctions d'affichage à l'écran....
Les exécuter l'une à la suite de l'autre ne pose pas de problème. Par contre, commencer à exécuter la 1e et en même temps exécuter plusieurs fois la 2e, je ne sais pas comment faire ça.

Vous avez une idée?

Merci,
Lucie

Il y a plusieurs solutions. Si tu n'as pas de long appels bloquants, tu peux utiliser Tk::After (avec les fonctions after() ou repeat()) pour ta fonction de mise à jour à partir de Telnet, et parsemer ta fonction longue de DoOneEvent() (qui permettra à Tk de reprendre la main temporairement). Par contre si tu as de long appels bloquants, tu vas devoir soit utiliser les threads, soit créer des processus fils avec fork(). Dis nous déjà dans quel cas tu es, et nous essaierons de t'aiguiller.

--
Jedaï

Ce sont de longs appels bloquant (20 mins).

D'ailleurs, la fonction bloquante (de récupération de flux après envoi d'une commande qui s'exécute pendant 20 mins) est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

# Je lance la commande   #Je récupère le flux d'affichage à l'écran while ($ligne=$telnet->get(Errmode=>"return",Timeout=>3)){ $ensemble=$ensemble.$ligne; }   # Et ensuite j'affiche $ensemble dans un champs texte.

---

Il faudrait que dans cette fonction, je puisse régulièrement effectuer une autre tâche.