[reseaux] Processus

**GMI3** · 25/09/2003, 11h30

bonjour,

j'ai un probléme de processus: j'ai un srcipt PERL qui lance un programme C dans un processus fils, son pere attent un certain délai (ici 3 seconde) si le fils est terminé il envoi une redirection vers une nouvelle page html contenant le résultat du prog C, et si le fils n'est pas terminé il envoie une page demandant de revenir plus tard...

voici le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
   $pid = fork();
 
   if($pid==0)
  {
      #prog c
  }
else{
   autoflush STDOUT 1;
    sleep(3);
    $kid = waitpid($pid,&WNOHANG);
    if($kid != 0)
    {
       	# chargement de la page de résultat
	print $html->end_html;
	print "<HTML><HEAD><META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=..></HEAD>";
    }
    else {
	# chargement d'une nouvelle page qui indique que le travail n'est pas encore terminé
	print $html->end_html;
	print "<HTML><HEAD><META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL= ...></HEAD></HTML>";
	wait;
    }
 
    print $html->end_html;
    exit;
}

si le prog C se termine avant le delai c ok la page de résulat se charge nikel, par contre le probléme c'est que si le prog c met plus de temps le pere n'envoi pas la balise méta pour changer de page avant que le fils ne soit terminé.

voila ci quelqu'un peut me sortir de cette embuche....

d'avance merci

**nyal** · 25/09/2003, 13h03

bonjur,

Tu te debrouille mal.
Voici comment on utilise waitpid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use POSIX ":sys_wait_h";
 
$pid = fork();
if($pid==0)
{
    exec("./trut");
    exit (1);
}
else{
    sleep(3);
    $pidi = waitpid(-1, WNOHANG);
    if ($pidi == $pid)
    {
        print "FINI\n";
    }
    else {
        print "PO FINI\n";
        wait;
    }
    exit;
}

Mais attention. Ca peut etre un changement de status. Donc ce n'est pas obligatoirement la mort du processus fils.

**GMI3** · 25/09/2003, 14h24

en fait je veux savoir si le fils est terminé.

de plus j'utilise la commande system() au lieu de exec() car après avoir lancé le prog en C je fais des instructions PERL qui utilisent les fichiers créés par le prog C
il faut que le prog C se termine, pour pouvoir terminer le script (ds le fils)

le père test si le fils est terminé, si oui il affiche le résultat, sinon il affiche une page de fin et attend la fin du fils.

j'ai essayé ta solution et ça ne marche tjrs pas

merci de te pencher sur mon pb

**nyal** · 25/09/2003, 14h39

Envoyé par GMI3

j'ai essayé ta solution et ça ne marche tjrs pas

merci de te pencher sur mon pb

Je ne comprend pas bien pourquoi. Car ca fonctionne bien.
Il ne rentre pas dans le else ?

**GMI3** · 25/09/2003, 14h45

en fait, si, il rentre bien ds le else, lorsque j'affiche qqchose ça merche ms dès que je fais l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "<HTML><HEAD><META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL= ...></HEAD></HTML>";

la redirection ne se fait pas du tout, et qd je tue le fils manuellement l'affichage se fait à ce moment : j'ai l'impression que le browser attend la fin de tous les processus du script pour réafficher une nouvelle page.

merci

[reseaux] Processus

Programmation et administration système Perl

Vue hybride

Discussions similaires

Partager

Partager