lancement script perl depuis un autre script perl

**danathane** · 06/01/2010, 13h48

EDIT du premier message

Salut tout le monde!

Alors voilà mon petit problème du jours :
mon prgramme comporte plusieurs scripts qui doivent pouvoir être lncer indépendemment si besoin.
le problème que j'ai c'est de lancer un script perl depuis un script perl en passant en argument un tableau de valeur. Je pense que ca doit être possible,mais je ne voit pas trop comment. Est ce qu'un truc comme ca pourrait passer :

Code :

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

1
2
3
4
5
6
7
8
 
script prère : 
@tab=...;
system(monscript.pl @tab);
 
script fils :
 
@argument = @Argv;

Dans ce code est ce que le @argument va etre égal à @tab?

Pour le passage de valeur d'une fonction à 'lautre pas de soucis mais en pensant en mode script.. un peu plus compliqué pour moi

merci d'avance pour vos réponse.

**50Nio** · 11/01/2010, 09h48

Bonjour,

Comme tu repasses par le système d'exploitation, tu est obligé de passer en argument tout tes arguments, et pas un tableau qui n'existe qu'en Perl.

Par exemple:
use strict;

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my @tab = ( 1, 2 );
 
# Construction d"une chaine representant le contenu
my ($argList, $i);
for $i ( 0 .. $#tab ) {
  $argList.=" $tab[$i]";
}
 
exec("/tmp/test2.pl $argList");

euh ... si tu as des espaces, ou des caractères spéciaux système (guillemets, $, @ etc...) ça se complique, il faut surement remettre chaque valeur entre simple guillemets pour l'appel système.