Discussion :

[julien terrier]

Bonjour,

je rencontre un petit pb lors de l’exécution de mon script du moins je n'ai pas le comportement attendu.

Dans le flow de mon script en perl a un moment je fais appel a script cshell qui pose une question a l'utilisateur.

PERL:
......code avt....

Code :

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

1
2
3
4
5
6
 
                        print $Tee "==================================================\n";	
			print $Tee "Creation of archive file \n";
			my $Archive_File = `Ewip_files -tegname ${TegName} -tegroot ${Dir}`;
			print $Tee "$Archive_File \n";
			print $Tee "==================================================\n";

....code après......

le script cshell en question s'appel donc Ewip_files et dans ce script j’exécute entre autre cette commande.

CSHELL:
......code avt.....

Code :

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

1
2
3
4
5
6
 
if ( $status == 0 ) then
echo "Which xor.gds you want to save?"
set answer=$< 
cp ${tegroot}/calibre/xor/$answer 2>&1 /dev/null ./Ewip_${tegname}/.
endif

......code après....

Donc quand j’exécute mon script (sous unix) il affiche Creation of archive et il attend une réponse or je souhaiterais qu'il affiche sur la console après "création of archive" "Which xor.gds you want to save?" puis la réponse. Actuellement il écrit la phrase "Which xor.gds you want to save?" une fois que j'ai répondu.

je ne sais pas si je suis assez clair dans mes propos.

merci pour vos retours.

[Philou67430]

L'appel du script cshell est fait par perl qui capture la sortie standard pour te la restituer en retour de l'opérateur qx (alias de ``).
Ainsi, tu ne vois pas les echo du script cshell sur la console.
Si tu veux voir le résultat des echo sur la console, tu dois utiliser la commande system (mais dans ce cas, tu ne pourras pas récupérer le résultat de la console pour le mettre dans $Archive_File comme tu le fais ici.

Après, je ne sais pas ce que fais ton script cshell, mais peut-être peux-tu envisager de le transposer dans ton script perl ?

[julien terrier]

L'appel du script cshell est fait par perl qui capture la sortie standard pour te la restituer en retour de l'opérateur qx (alias de ``).
Ainsi, tu ne vois pas les echo du script cshell sur la console.
Si tu veux voir le résultat des echo sur la console, tu dois utiliser la commande system (mais dans ce cas, tu ne pourras pas récupérer le résultat de la console pour le mettre dans $Archive_File comme tu le fais ici.

Après, je ne sais pas ce que fais ton script cshell, mais peut-être peux-tu envisager de le transposer dans ton script perl ?

Merci pour le retour, en faite je n'ai pas vraiment besoin d'afficher $Archive_File c'est une information annexe par contre je suiis réellement intéresse la commande system peux tu m'en dire un peux plus stp ?

Je peux tenter l'exercice de transposer en perl mais cela va me prendre du temps car je suis vraiment débutant en perl.

[Philou67430]

Et bien ...
tu remplaces ces lignes

Code :

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

1
2
my $Archive_File = `Ewip_files -tegname ${TegName} -tegroot ${Dir}`;
print $Tee "$Archive_File \n";

par celles-ci :

Code :

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

1
2
my $Archive_Exit_Value = system("Ewip_files -tegname ${TegName} -tegroot ${Dir}");
print $Tee "Ewip returned value : $Archive_Exit_Value\n";