Discussion :

[Lily_]

Bonjour à tous,

J'ai déjà lu quelques sujets sur le forum à ce propos, mais je n'y trouve pas ma réponse.

Depuis un script, je désire en démarrer un autre, sans que ca n'interrompe le premier. Par la suite, j'aimerais également pouvoir arrêter le script.

Si j'ai bien compris, il s'agit de faire un fork. Cependant, je n'arrive pas à mon but.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub startprog {
 FORK:{
    my $pid;
    if ($pid=fork) {
	return "start";
    } elsif (defined $pid) {
      system('perl monprog.pl');
      exit(0);
    } else {
      return -1;
    }
  }
}

En effet, ce code démarre bien mon script monprog.pl, mais ne continue pas le script parent (n'affiche pas start tant que monprog.pl fonctionne).

Le terminal qui s'ouvre pour monprog.pl s'affiche en premier plan, y'a-t-il un moyen de masquer la fenetre en arrière plan?

Pouvez-vous me donner des pistes pour l'arrêt du programme ?

Petite précision peut-être utile : je travaille sous ActivePerl (Windows).

Merci d'avance! Et bon week-end!

Lily

[iblis]

A mon avis, il te manque un waitpid(), regarde là dans la FAQ.

[Lily_]

Merci pour ta réponse!

J'ai lu la FAQ, mais le problème, c'est que je ne veux justement pas que mon processus père attende la fin du processus fils. Si j'ai bien compris, le waitpid attend la fin du fils. Or, j'aimerais qu'au moment ou le processus fils démarre, le processus père affiche "start". Donc que mes deux processus fonctionnent en parallèle, sans attendre la fin l'un de l'autre.

[Woufeil]

Salut,

Ce que tu pourrais faire, c'est utiliser les threads pour ce genre de choses :

Code :

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

1
2
3
4
5
6
use threads;
 
my $thr=threads->new( sub {system('perl monprog.pl')} ); #Générer le thread
$thr->detach; #Indique qu'on ignore le trhead thr
 
#actions

Dis nous si ce code te convient

[Lily_]

Merci!

J'ai testé, mais je n'arrive toujours pas à mon résultat espéré

Code :

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

1
2
3
4
5
6
7
8
9
10
sub startprog {
 
my $cmd = 'perl monprog.pl';
 
my $thr=threads->new( sub {exec($cmd)} ); #Générer le thread
$thr->detach; #Indique qu'on ignore le trhead thr
 
return "start";
 
}

Maintenant j'ai le "start" qui s'affiche, mais monprog.pl n'est plus executé. Pouvez-vous m'éclairer ? Merci!

[Lily_]

En faisant divers tests, je m'appercois que mon programme s'execute de la même façon que je fasse le fork ou non.

Code :

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

1
2
3
4
5
6
7
8
9
sub startprog {
 
my $cmd = 'perl monprog.pl';
 
	system($cmd);
 
return "Start";
 
}

Ce code produit exactement la meme chose que celui que j'ai montré au début du sujet. Cela signifie donc que le fork ne fonctionne pas ? Quelqu'un peut-il m'expliquer ?

Merci!

[ankou29666]

Il te suffit de lancer le script en tache de fond comme ceci :

Code :

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

1
2
system ("commande param1 param2 &") ;

Il est important que tu passes tes paramètres avec la commande dans une seule chaine de caractère et non pas sous forme de liste, faute de quoi il n'y aura pas d'interprétation par le shell, et donc le script ne sera pas lancé en arrière plan ...

[Jedai]

Il te suffit de lancer le script en tache de fond comme ceci :

Code :

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

1
2
system ("commande param1 param2 &") ;

Il est important que tu passes tes paramètres avec la commande dans une seule chaine de caractère et non pas sous forme de liste, faute de quoi il n'y aura pas d'interprétation par le shell, et donc le script ne sera pas lancé en arrière plan ...

Oui, enfin sous Windows ça marche moins bien...

Bon par ailleurs pour ce qui est de la solution par thread, il ne faut pas que tu le détaches, car en Perl quand le thread principal meurt, les autres threads meurent avec lui. Fait plutôt un join() à la fin de ton script.

--
Jedaï