exécuter un script perl depuis un autre programme perl

Bonjour,

débutant en perl, j'aimerais svp, que quelqu'un me débloque sur comment exécuter un script perl depuis un autre script. ds le programme perl ci-dessous, j'appelle Test.pl entre ` `et Test.pl ne s'exécute pas dans ce programme alors que j'arrive à l'exécuter tout seul en ligne de commande(pas besoin d'arguments). Quelqu'un pourrait il m'aider sur la question afin que j'avance car je suis vraiment buté à ce niveau.
merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my @ligne; open (USER_RECORDS , "toto.txt") || die ; sub function{ $i=0; while (<USER_RECORDS>) { # parcours fichier $i ++; $lignecomplete=$_; #j'affecte chaque ligne à lignecomplete (@maligne) = split(/,/,$lignecomplete); `perl Test.pl `; #avec ou sans pointvirgule, ça marche pas } } function();

---

C'est encore moi!!

Pour la question posée là haut, je ne veux pas appeler une à une les fonctions ou procédures de Test.pl, ce que je veux, c'est exécuter tout le fichier systématiquement. c'est vraiment très urgent. je vous remercie d'avance.

Comment sais-tu qu'il ne s'exécute pas ?

Bonjour,

Aucun message d'erreur ?
Qu'est censé faire ton script ? Est-il placé dans le même répertoire que ton script d'appel ?
Es-tu sûr qu'il ne s'exécute pas parce que si tu ne récupères pas une sortie éventuelle de ton script Test.pl tu ne le verras pas s'exécuter (encore faut-il qu'il renvoie quelque chose).
Exemple :

Code:

---

1 2 3

my $sortie = `perl Test.pl`; print $sortie."\n";

---

Je pensais à la même chose que toi beniou :)

Une autre alternative est d'utiliser system("perl Test.pl") (plus besoin de print).

S'lut.

Le script est censé exécuté Test.pl. Seulement, je me suis rendu compte après qu'il faut passer des params aux scripts, donc la ligne d'appel sera plutôt comme suit:
`perl Test.pl -user $maligne[0]`;
le reste du script que je vous ai passé avant restant inchangé. Et dans Test.pl, on retrouve: GetOptions('user=s' => \$user); avec $user qui est une variable string à Test.pl. j'ai bien ds Test.pl la librairie use Getopt::Long;

je suis obligé de passer des params au script parce que je veux que @maligne soit visible de l'extérieur (option de cmd).

Laisser moi vous dire que Test.pl appelle lui même un autre fichier toto.pm.

j'arrive à exécuter Test.pl qui utilise toto.pm mais dans le programme actuel que je vous ai envoyé, ça bloque au niveau `perl Test.pl -user $maligne[0]`.
j'ai essayé ce que vous m'avez dit mais ça pas marché.
je peux me rendre effectivement compte du blocage en faisant des print de temps en temps pour controler son déroulement à l'exec.

merci d'en tenir compte et de me venir en aide.

Je ne vois toujours pas en quoi "ça bloque"... qu'est-ce qui t'indique que le script Test.pl ne fonctionne pas ?
Je rappelle que si tu fais des print dans Test.pl, pour les voir à l'écran si tu appelles ce script depuis un autre, il faut impérativement écrire :

Code:

---

system("perl Test.pl -user $maligne[0]");

---

Et qui plus est, il est préférable d'activer l'autoflush dans Test.pl en ajoutant une ligne en début de script :

Code:

---

$| = 1;

---

Je vous remercie d'abord pour vos réponses.
J'ai finalement pu entrer dans Test.pl en écrivant dans le prog que je vous ai envoyé: system ("perl Test.pl -users $maligne[0] -users $maligne[1] -users $maligne[2]") et dans Test.pl, j'ai une portion de code comme ceci:
.............................
my @values;
@values=($user,$pwd,$Home);
GetOptions('users=s' => \@values);
printf ("je t'observe\n");
printf("$values[0]");print("$values[1]");print("$values[2]");
printf ("je t'observe\n");
..........................
Le problème maintenant est que j'ai envie de m'assurer maintenant que les params ont bien été passés à Test.pl: c'est pourquoi j'ai fais printf("$values[0]");print("$values[1]");print("$values[2]"); mais il ne l'exécute pas puique j'observe sur la console l'affichage des print qui l'encadrent:
je t'observe
je t'observe
Et je me demande bien pourquoi ces valeurs n'ont pas été passés ou bien ont elles été passées et pourquoi alors les print ne s'affiche pas sur la console?

c'est assez urgent et merci une fois de plus de votre attention et de votre réponse

oui Philou,
j'ai rajouté l'instruction perl que tu m'as conseillé.
ma dernière question intitulé "partiellement résolu" reste toujours d'actualité.
je te remercie de ton intervention qui me permet de creuser davantage sur le langage.

Je suis encore et toujours en attente bloquante. Merci

Pensez à utiliser aussi le module IPC::Run

Si tu ne vois pas les print c'est que tes valeurs sont nulles ou alors une chaîne vide. Ca doit venir donc de ton split ou de ton fichier toto.txt qui n'est pas au bon format.

Tu peux déjà regarder si ta commande fonctionne avec un appel direct à ton script avec des arguments définis (function1 dans mon exemple)
J'ai essayé de créer un exemple de fichier toto.txt basé sur ton script.

fichier exec.pl :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

use strict;     sub function{   system("perl Test.pl -users toto -users tata -users titi");   }   sub function2{ open (USER_RECORDS , "toto.txt") || die "$!\n"; while (my $line = <USER_RECORDS>) { if($line !~ /^\s+$/){# parcours fichier chomp($line); my ($arg1,$arg2,$arg3) = split(/,/,$line); my $commande = "perl Test.pl -users $arg1 -users $arg2 -users $arg3\n"; system($commande); } } close(USER_RECORDS); }     function(); function2();

---

fichier Test.pl :

Code:

---

1 2 3 4 5 6 7 8 9 10

use strict; use Getopt::Long;   my @values;   GetOptions('users=s' => \@values); printf("je t'observe\n"); printf("$values[0]\t$values[1]\t$values[2]\n"); printf("je t'observe\n");

---

fichier toto.txt

Code:

---

1 2 3 4

toto1,toto2,toto3 titi1,titi2,titi3 tatat1,tata2,tata3

---

Cet exemple chez moi fonctionne

Oui Beniou, merci pour cet exemple, il fonctionne chez moi aussi sauf que si dans ton fichier toto.txt, tu as une ligne du genre:
tata,toto,titi marie
le truc est qu'on a une chaine composée, ça nous fait par éclatement avec le split 3 sous chaines qu'on passe alors que sur la console, 'marie' n'apparait pas du tout;pourtant on devrait avoir 'titi marie' dans $values[2]. on a bien 'titi marie' dans $arg3, j'ai vérifié et pas dans $values[2], il jette l'autre partie.

1) comment faire dans ce cas pour qu'on ait $values[2]="titi marie"?

2) Juste pour comprendre ton truc: l'intruction
if($line !~ /^\s+$/){# parcours fichier
veut -elle dire que le modèle doit commencer en début de ligne sans contenir un caractère d'espacement (pour que le "if" soit vrai)? ou stp explique moi si cela traduit autre chose?

Merci encore d'avance.

Citation:

---

Envoyé par ngouagme

1) comment faire dans ce cas pour qu'on ait $values[2]="titi marie"?

---

Pour obtenir 3 paramètres au maximum, il faut utiliser la forme à 3 paramètres de split (voir perldoc -f split) :

Code:

---

my ($arg1,$arg2,$arg3) = split(/,/,$line, 3);

---

PS : pense à utiliser la balise [code] ... [/code] ou l'icône http://www.developpez.net/forums/images/editor/code.gif pour entourer le code perl que tu postes ici.

slut,

1) En ce qui concerne la question précédente, la réponse que tu m'as donnée (philou) ne marche pas, il m'affiche "titi" et pas "titi marie" comme troisième argument. Le problème est que quand il voit l'espace, il ignore l'autre partie de la chaine i.e., "marie"; pourtant je veux qu'il m'affiche "titi marie" comme troisième argument.

2) soit les instructions perl ci-dessous qui utilise une librairie sélénium de perl. la "ème instruction prend en paramètre une instruction xpath. ce que je veux obtenir, c'est "Page personnelle de superuser" i.e., $msg[1]="superuser" (puisque je récupère superuser dans $msg[1] Sauf que mon formatage n'est pas bon puisqu'il m'affiche une erreur à la compilation. Comment pourrais je régler ce problème?

Code:

---

1 2 3 4

$message="User login ok, superuser"; @msg = split(/,/,$message); $sel->is_element_present_ok("//td[\@class='headline']/a[\@title="Page personnelle de " . "$msg[1]"]");

---

Merci de bien vouloir me répondre!

Pour que ton script Test.pl prenne tous les arguments il faut que le premier script exec.pl passe les arguments avec des doubles quotes (qu'il faut protéger avec un /)

Ex :

Code:

---

1 2 3

my $commande = "perl Test.pl -users \"$arg1\" -users \"$arg2\" -users \"$arg3\""; system($commande);

---

Ca devrait fonctionner. Sinon, tu devrais quand même regarder le module IPC::Run donné par Djibril : ce serait plus propre.

Merci Beniou pour cette précision; ça marche!

j'ai galéré le week end dernier là dessus, et ça me soulage beaucoup.

j'ai encore un problème de formatage de chaine qui concerne la dernière instruction du petit bout de code que je viens d'envoyer.
et c'est encore galère. je pense qu'avec ça, je pourrai bien repartir.

Merci encore!

Pour l'instruction ci dessous avec les deux premières qui précèdent (voir message précédent,

Code:

---

1 2	$sel->is_element_present_ok("//td[\@class='headline']/a[\@title="Page personnelle de" . " " . "$msg[1]"]")

---

Voici les erreurs que la console Dos affiche:

Missing operator before "."?
Missing operator before $msg?
missing operator before "]"?

merci!

A première vue ce que tu veux faire c'est :

Code:

---

1 2	$sel->is_element_present_ok("//td[\@class='headline']/a[\@title=\"Page personnelle de $msg[1]\"]");

---

Il faut protéger la double quote avec un \ pour ne pas fermer la chaîne de caractères. De plus, tu peux utiliser directement ta variable msg dans ta chaîne sans avoir à concaténer avec un .

slut!
merci, ça marche bien. en fait la var me permet de rendre mon code modulaire.
Merci encore

Slut,
j'ai une fonction InRdvDtata qui me dit que je n'ai pas initialisé $df[0] (on le constate en faisant un print comme fait ci-dessous. Cependant, la variable analogue $dd[0] marche bien! on dirait que le premier tableau en paramètre masque le second. Quelqu'un pourrait il m'aider à faire fonctionner ce bout de code?
je veux récupérer avec les deux dernières instruction la date sous la forme 8-13-2015 et 15-13-2015.

Merci d'avance!

Code:

---

1 2 3 4 5 6 7 8

sub InRdvData { my ($mytxt, @dd, @df, $lieu) = @_; # Insert here the implementation print ("mon text= $mytxt\t toto= $df[0]\t titi= $dd[1]\n"); my $d=$dd[0]."-".$dd[1]."-".$dd[2]; my $f=$df[0]."-".$df[1]."-".$df[2]; } InRdvData("bidule", (8, 13, 2015),(15, 13, 2015),"Bureau");

---

Attention, tu n'utilises pas les tableaux comme il faudrait :

Tout d'abord, lors du passage de paramètre, toutes les variables passés sont mises bout à bout dans une grande table @_.
Ainsi, dans cette ligne :

Code:

---

InRdvData("bidule", (8, 13, 2015),(15, 13, 2015),"Bureau");

---

c'est comme si tu avais écris :

Code:

---

InRdvData("bidule", 8, 13, 2015, 15, 13, 2015 ,"Bureau");

---

Et rien ne permet de distinguer la première date de la deuxième.
Ensuite, dans la récupération des paramètres, c'est pareil, le fait d'écrire :

Code:

---

my ($mytxt, @dd, @df, $lieu) = @_;

---

Va remplir @dd avec toutes les valeurs de @_ qui suivent "bidule", et @df et $lieu seront vides, car lors de l'affectation, l'opérateur = ne sait pas où partager la table, il rempli donc par défaut le premier tableau qu'il trouve à gauche du égal, et plus les paramètres suivants.

Pour traiter correctement ce genre de passage de paramètre, il faut utiliser des références à des tableaux (des scalaires qui pointent sur un tableau).
Exemple :

Code:

---

1 2 3 4 5 6 7 8

sub InRdvData { my ($mytxt, $dd, $df, $lieu) = @_; # Insert here the implementation print ("mon text= $mytxt\t toto= $df->[0]\t titi= $dd->[1]\n"); my $d=$dd->[0]."-".$dd->[1]."-".$dd->[2]; # s'écrit aussi $d = join "-", @$dd; my $f=$df->[0]."-".$df->[1]."-".$df->[2]; # s'écrit aussi $f = join "-", @$df; } InRdvData("bidule", [8, 13, 2015], [15, 13, 2015],"Bureau");

---