Perl, threads et appels system

Salut,

Je me demande quelle est l'interaction entre l'utilisation des threads et les appels à la commande "system".

Par exemple je lance deux threads, chacun fait une commande system "cd un_repertoire" est ce qu'il y a un risque que chaque thread ne travaille pas dans le répertoire ou il a fait son cd ?

Merci

A priori, je dirais que le system("cd") s'applique au processus perl qui lui, est unique (donc aux deux threads).
En revanche, cela peut être différent pour la commande perl chdir, qui fait également un cd (à vérifier).

une petite lecture s'impose.

Citation:

---

Bien que les threads aient des chemins d'exécution séparés et que les données Perl soient privées à chaque thread à moins qu'elles ne soient explicitement partagées, les threads peuvent modifier l'état du processus complet, affectant ainsi les autres threads.

L'exemple évident de cela est le changement du répertoire de travail courant avec chdir(). Si un thread appelle chdir(), le répertoire de travail de tous les threads change.

---

Merci. Ce comportement ne m'arrange pas du tout !
Pouvez vous m'aider à trouver un workaround ?

Si je mets de côté les threads pour le moment. Ai-je un moyen de lancer simultanément plusieurs commandes en background (comme on fait avec "&" dans la ligne de commandes) précédées d'un changement de répertoire. Chaque commande doit impérativement s'executer dans un répertoire spécifique.

Ce serait l'équivalent des lignes de commandes suivantes :

cd repertoire1
commande1 &
cd repertoire2
commande2 &
etc...

Le but est évidemment de ne pas attendre la fin de l'exécution.

En y réfléchissant bien, je me demande si system("cd ...") modifie le répertoire courant du script en cours d'exécution, vu qu'il va s'appliquer au shell qui va être lancé par la commande system ...

Je ne comprends peut-être pas, mais chez moi ça fonctionne:

Code:

---

1 2 3 4 5 6

use threads; my $thr1 = threads->create(sub { chdir("/tmp");print system("pwd"); }); my $thr2 = threads->create(sub { chdir("/home/");print system("pwd"); }); $thr1->join(); $thr2->join();

---

Mes deux threads me donne bien /tmp et /home

Citation:

---

Envoyé par Philou67430

En y réfléchissant bien, je me demande si system("cd ...") modifie le répertoire courant du script en cours d'exécution, vu qu'il va s'appliquer au shell qui va être lancé par la commande system ...

---

Et c'est la bonne raison je pense.

Code:

---

1 2 3 4 5 6

use threads;   my $thr1 = threads->create(sub { system("cd /tmp");print system("pwd"); }); my $thr2 = threads->create(sub { system("cd /var");print system("pwd"); }); $thr1->join(); $thr2->join();

---

me donne /var et /var. C'est parce que system est une drole de commande, qui fait un fork.
Et comme le dit je ne sais pas qui, mais qui est bien renseigné sur les threads (perlthrtut)

Thinking of mixing fork() and threads? Please lie down and wait until the feeling passes.