[reseaux] Fais dodo, process, mon p'tit père....

**GLDavid** · 08/07/2004, 15h08

Bonjour

Voici mon problème. Je forke (mother forker !) pour lancer un browser dans mon script perl. Ce que je souhaite, c'est que le process père (ie le script) s'endorme jusqu'à ce que le fils ait se termine.
Or, d'après mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\mozilla.org\\Mozilla\\mozilla";
unless (defined ($pid = fork)) {
    die "cannot fork: $!";
} 
unless ($pid) {
    system("\"$mozilla\" $url");
    exit;                        # the child stops here
} 
                                 # Parent continues here
waitpid($pid, 0);  
 
print"Finish !";

Il lance en effet le navigateur MAIS il affiche du même coup "Finish". Donc, comment endormir le père jusqu'à ce que le fils soit mort ?

@ ++

**Choupi** · 08/07/2004, 16h03

Hum alors j'ai deux remarques,

1/

¤ system cree automatiquement un processus enfant et perl dors pendant l'execution de ce processus.

¤ ce n'est pas le cas d'exec, donc si tu veux tout controler, je pense qu'il faut mieux utiliser exec.

2/ ce que je n'arrive pas à faire, c'est capturer les processus en cours... Là je suis sous winows (activerperl) et cygwin... Dans aucun des cas je n'arrive à suivre mes processus... Tu y arrives toi ?

**GLDavid** · 08/07/2004, 16h28

Salut Choupi !

Justement, que j'utilise exec ou system, le résultat est pareil !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\mozilla.org\\Mozilla\\mozilla";
$statut=fork;
    if ($statut) {
        wait; # Attends dans le processus pere la fin du processus fils.
        print"Finish !";
    }
    else
    {
        exec("\"$mozilla\" $url");
        }

Même avec ça, mozilla (process fils) s'ouvre mais le père reprend la main et m'affiche Finish !
Et je suis comme toi, sous Cygwin et ActivePerl.

@++

**GLDavid** · 08/07/2004, 16h29

Ouah ! 700 posts !

@ ++

**Jedai** · 08/07/2004, 17h19

Ben en fait, vérification faite, mozilla.exe (ou en tout cas firefox.exe) n'est qu'un "intermédiaire", il se finit instantanément si tu le lance à partir de la console, mais la fenêtre reste... Peut-être devrais-tu essayer de trouver un autre repère pour savoir quand tu as fini, en vérifiant la présence du fichier à copier par exemple, ou quelque chose comme ça.

--
Jedaï

**GLDavid** · 08/07/2004, 17h39

Salut !

Mouais, c'est le même problème qu'avec Explorer finalement.
Bon, je vais me débrouiller autrement dans ce cas.
Merci du conseil.

@ ++

**Choupi** · 08/07/2004, 17h47

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use POSIX "sys_wait_h";
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\Mozilla Firefox\\firefox.exe";
my $res;
 
defined (my $pid = fork) or die "cannot fork: $!";
 
unless ($pid) {
    exec("\"$mozilla\" $url");
}
$res = waitpid($pid,0);
print "\n$res\n";

Effectivement ca affiche res ... et le process est considéré comme terminé. Ce problème revient super souvent je trouve. Faudrait essayer de savoir comment y remedier... Vais mailer des profs de progs.

**Choupi** · 08/07/2004, 17h56

J'ai lancé un post : http://www.developpez.net/forums/viewtopic.php?t=220725
J'espere que ca va nous aider à mieux comprendre ça... On verra bien.

**GLDavid** · 08/07/2004, 18h06

Ok, je surveille les réponses de ton post et on verra bien.

@++

**Choupi** · 08/07/2004, 18h19

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use POSIX "sys_wait_h";
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\Mozilla Firefox\\firefox.exe";
my $res = 0;
 
defined (my $pid = fork) or die "cannot fork: $!";
 
unless ($pid) {
    system("\"$mozilla\" $url");
}
                                 # Parent continues here
$res = waitpid($pid,0);
print "\n$res\n";

Lancez ca !

J'obtiens deux valeurs de $res : -1 puis - 3900 .... d'ou vient le premier -1 ? La gestion est tres differente de la plate forme unix.

**Jedai** · 08/07/2004, 19h20

Non, l'origine du premier -1 est simple : c'est juste que comme tu utilises un system et pas de else, la partie qui affiche $res est exécuté par le père ET le fils, et -1 est renvoyé par le fils parce qu'il ne peut pas s'attendre lui-même...

Par contre c'est vrai que sous Unix, il est rare qu'un processus agisse comme mozilla.exe ou explorer.exe, bien que ça soit le cas des démons.
--
Jedaï

**Choupi** · 08/07/2004, 19h22

Merci pour le else, en fait j'ai compris en lisant le post dans la section windows du forum. Pour avoir un controle de l'application il faut donc passer par autre chose qu'un system/exec... Mais je n'ai aucune idée de comment le faire.

. ca me perturbe quand même qu'on ne puisse pas faire ça. Un developpeur perl expert dans le coin ?

**GLDavid** · 09/07/2004, 15h01

Salut Choupi !

J'ai réécrit mon code avec une astuce. Puisque le père reprend la main aussitôt, alors, autant le faire dormir ! Du moins, le temps que dans le processus fils, je puisse faire ce que j'ai à faire (30s, c'est suffisant). Toutefois, je te laisse méditer sur ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\mozilla.org\\Mozilla\\mozilla";
unless (defined ($pid = fork)) {
    die "cannot fork: $!";
}
unless ($pid) {
    system("\"$mozilla\" $url");
    exit;
}
 
sleep(10);
print"Finish !";

Tel quel, le processus fils se lance et au bout de 10s, le père t'affiche le message Finish. Je me suis dit, mais alors, autant tuer le fils après ces 10s !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\mozilla.org\\Mozilla\\mozilla";
unless (defined ($pid = fork)) {
    die "cannot fork: $!";
}
unless ($pid) {
    system("\"$mozilla\" $url");
    exit;
}
 
sleep(10);
kill($pid);
print"Finish !";

Ô surprise ! Au bout des 10s, le fils n'est pas tué pour autant !
J'avoue ne plus rien comprendre !

@ ++

**GLDavid** · 09/07/2004, 15h18

Bonjour à vous tous et merci de vos réponses.

Bon, j'avoue que le problème est "partiellement" résolu. En effet, quand je demande au père de pioncer avec sleep pendant que je fais ce que j'ai à faire avec le processus fils, j'arrive à un chouette résultat (cf plus haut).
Il n'empêche que j'aurais souhaité que le père dorme tant que le fils est actif ! Donc, le thread est marqué résolu mais si vous avez des alternatives, je suis preneur !

@ ++

**Jedai** · 09/07/2004, 15h43

Ben en fait c'est vraiment un problème spécifique à Windows et à certains programmes... Même en utilisant Win32::Job ou associés, je continue à obtenir le même résultat. En fait il semble que ces commandes n'agissent que comme des proxy pour la véritable application, ce qui nous prive de notre contrôle sur eux... Il reste la possibilité d'utiliser un module comme Win32:

rocess::Info pour savoir quels processus sont en cours d'exécution, mais c'est un brin fastidieux !!

(Peut-être Win32::ChangeNotify pourrait-il être intéressant aussi dans ton cas en particulier : il permet de surveiller ce qui arrive à un fichier (un nom de fichier plutôt), s'il est créé, s'il change de taille, etc...)
--
Jedaï

**GLDavid** · 09/07/2004, 15h45

Humm, ça me semble intéressant tout ça ! Peux-tu préciser ta pensée, as-tu des liens à nous conseiller, des extraits de code ?

@ ++

**GLDavid** · 09/07/2004, 15h47

[troll]Encore un souci inhérent à Win

[/troll]

**Jedai** · 09/07/2004, 15h50

Finalement, je me suis trompé : en fait j'avais fait tous ces tests avec une fenêtre firefox ouverte, et d'un seul coup j'ai eu une inspiration et je me suis dit : "Pourquoi ne pas essayer de recommencer alors que firefox n'est PAS ouvert ?".
Ô surprise ! J'ai enfin obtenu un résultat correct

Conclusion : on peut obtenir le résultat souhaité avec ce code pourvu qu'un processus similaire ne soit pas déjà en route :

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
 
#!/usr/bin/perl
use strict;
use Win32::Job;
 
 
my($url) = "http://www.wanadoo.fr";
my($mozilla) = "C:\\Program Files\\Mozilla Firefox\\firefox.exe";
my $res = 0;
 
    my $job = Win32::Job->new;
    $job->spawn("$mozilla", q{firefox $url});
    my $ok = $job->run(5 * 60, 1);
 
 
print $ok;