jouer un script cshell dans un script perl
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:
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:
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.
