Discussion :

[ngouagme]

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 :

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

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();

[ngouagme]

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.

[Philou67430]

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

[Beniou]

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 :

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

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

[Philou67430]

Je pensais à la même chose que toi beniou

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

[ngouagme]

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.

[Philou67430]

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 :

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

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 :

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

$| = 1;

[ngouagme]

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