Discussion :

[vince2005]

Bonsoir,

Est possible en perl, comme sous unix de faire appel à d'autre programme, situés dans d'autres répertoires. Dans lesquels il faudrait placer des paramétres.

Je m'explique, je suis dans le repertoire C:\temp avec le programme test1.pl, et à partir de celui ci, je veux lancer un script perl qui se trouve dans C:\windows\lance.pl dans lequel je passe des paramétres donc le résultat est issu de test1.pl.

en schématisant,

test1.pl ==> C:\windows\lance.pl ${date} ${lieu]


comme puis je faire pour transmettre le resultat des variables de test1 à lance.pl.

Merci encore

[Arioch]

oui, tu peux faire un script Perl qui en lance d'autres à la suite en leur envoyant des paramètres

Attention cependant !

Si tu veux que ton script principal continue à garder la main après chaque sous-programmes lancés, il faut faire appel à la commande system( ). Si au contraire, une fois qu'il a lancé le 2è prog, il doit s'arrêter, tu peux employer exec( ) à la place.

Je serais fortement tenté, dans la mesure du possible bien sûr, de faire en sorte que chacun des programmes Perl secondaires soit un package (.pm au lieu de .pl) contenant ton code sous forme de fonctions. A moins que ces programmes doivent pouvoir être lancés individuellement et pour tout autre usage ?

En admettant que tu restes sur une optique (exemple) 1 prog principal lançant 2 sous-programmes tout en récupérant la main à la fin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
 
my $sous_prog1 = "perl.exe C:\travail\toto.pl";
my $sous_prog2 = "perl.exe C:\travail\titi.pl";
 
my ($param1, $param2, $param3, $param4) = (1,2,3,4);
 
# lancer chaque sous prog en leur envoyant à chacun 2 param
system ("$sous_prog1 $param1 $param2");
system ("$sous_prog2 $param3 $param4");
 
# fin de ton script principal pour l'exemple

Code :

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

1
2
3
4
5
6
7
8
 
# rapide script sous programme toto.pl
 
# récup des deux arguments reçus en paramètres
my ($val1, $val2) = ($_[0], $_[1]);
 
# $val1 doit contenir 1
# $val2 doit contenir 2

A peaufiner et je ne doute pas que de biens plus experts que moi (djibril, ledjai ou pospos entres autres) te donneront d'autres pistes ou éclaircissements

J'insiste cependant sur le fait que, si c'est faisable, tes sous programmes seraient mieux dans un ou plusieurs packages. Et là, tu n'aurais plus qu'à t'en servir comme des fonctions classiques. Fonctions qu'on appelle d'ailleurs sous programmes, comme quoi

[djibril]

Arioch a bien résumé. tu possede trois façon pour lancer une commande systeme en perl (Donc de lancer un script perl dans ton script. Tu peux faire un tour dans la FAQ que nous avons rédigé (confere ma signature).

exemple : principal.pl

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
17
 
#!/usr/bin/perl -w
use strict;
use Carp;
 
print "bonjour\n";
print "je lance un autre script via system\n";
system("perl C:\windows\lance.pl ${date} ${lieu}");
 
print "je lance un autre script via des backquote\n";
`perl C:\windows\lance.pl ${date} ${lieu}`;
 
print "je lance un autre script via exec\n";
exec("perl C:\windows\lance.pl ${date} ${lieu}");
Mais ce derniere stop le script principal une fois la commande exécutée
 
Voilà

[MarneusCalgarXP]

Il y a également

Code :

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

1
2
 
my $retour = qx(perl C:\windows\lance.pl ${date} ${lieu});

[Jedai]

Il y a également

Code :

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

1
2
 
my $retour = qx(perl C:\windows\lance.pl ${date} ${lieu});

Ceci est strictement équivalent aux backquotes, c'est un opérateur de quotation alternatif (comme qq() pour " et q() pour '). Son intérêt est surtout de permettre d'utiliser des modes d'interpolations alternatifs, par exemple avec qx'commande' le contenu de la commande sera parsée comme entre simple quotes (alors qu'avec les backquotes l'interpolation est par défaut comme avec les doubles quotes).

--
Jedaï