Discussion :

[Blo0d4x3]

Bonjour,

Dans un script perl, j'appelle un autre script perl via la fonction exec, il faut que ces deux scripts aient le même PID.
Sous un Unix ca fonctionne, mais sous Windows pour une raison que j'ignore, le second script n'a pas le même PID.

Comment corriger cela?

Merci

[Lolo78]

Je doute que ce soit possible, c'est le système qui fait cela.

[Blo0d4x3]

Aie c'est ce que je craignais

[6ril23]

je ne sais pas du tout comment est fait ton projet et donc si ma proposition est réalisable
tu peux peut être détourner ton 2ème script en "librairie" avec son contenu dans une fonction: ainsi tu exécute bien les 2 traitements et windows ne devrait pas changer le PID (enfin j'imagine car je n'ai pas testé)

[BufferBob]

Lolo78 a raison, sous linux l'appel système execve() ne fait que remplacer l'espace d'adressage du processus, il n'y a pas de nouveau processus créé, donc pas de nouveau PID, sous windows... disons pour faire -très- simple que nativement il n'y a pas la possibilité d'avoir le même fonctionnement et que dès lors la problématique repose sur l'implémentation de Perl (une version Win très spécifique par exemple, mais ça n'est pas le cas) ou "autre chose" (Cygwin par exemple)

donc pour la petite info j'ai testé pour ma part avec un Perl sous Cygwin, ça fonctionne comme attendu, même si c'est légèrement feinté

Code perl :

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

1
2
3
4
#!/usr/bin/env perl
use English;
print "first  : ".$PID."\n";
exec("./second.pl") or die("pas bon");

Code perl :

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

1
2
3
#!/usr/bin/env perl
use English;
print "second : ".$PID."\n";

Code perl :

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

1
2
3
$ ./first.pl
first  : 4604
second : 4604

[Blo0d4x3]

J'ai commencé à regrouper tous les scripts dans un seul afin d'éviter le problème de PID. Mais le but du script c'est d'automatiser l'installation d'un outil, j'ai un .msi à lancer et la, je vais surement avoir le même problème, du coup mon script perl ne pourra pas savoir ou en est l'installation du msi :'(.