Interactivité perl / shell

Bonjour tout le monde,

J'espère ne pas être passé à côté d'un post déjà crée :aie:

J'ai un script shell permettant l'installation d'une appli sur mes serveurs.
Le script shell demande la saisie de certaines informations au clavier et ne dispose pas de mode d'installation silencieuse.

Par exemple :

./script.sh
#Question1 (attente de réponse1)
Réponse1
#Question2 (attente de réponse2)
...

Je voudrais lancer mon script shell depuis un autre script perl.
Perl devrait :
- analyser la chaîne en attente (Question1, Question2)
- soumettre la réponse correspondante à la bonne question
- se passer le plus possible d'expect

Avez-vous une idée de comment capturer les STDOUT du script shell puis de le soumettre une réponse et ensuite de reprendre la lecture de SDTOUR puis de soumettre la réponse2, etc, etc, etc....?

Je vous remercie par avance

Si j'ai bien compris ce que tu veux faire, je crains que ce ne soit pas possible (ou du moins pas du tout facile). Si tu lances ton script shell depuis un script Perl, Perl se mettra en attente de la fin du script shell (et pourra éventuellement traiter les données produites par le script shell (STDOUT), mais seulement quand le script shell sera achevé. A tout moment, un seul des deux scripts aura la main. Il faudrait donc, a priori, que tu saucissonnes le script shell en plusieurs morceaux, soit en le séparant en plusieurs fichiers, soit en y aménageant des plages distinctes appelables séparément et qui sortent du script en fin de plage.

Peut-être serait-il judicieux de tout réécrire en Perl, avec des appels à des commandes shell quand c'est nécessaire. Ou alors insérer du code Perl en ligne à l'intérieur du script shell (ce que je fais régulièrement).

Ok merci pour ta réponse.

Il s'agit d'automatiser l'installation d'un RPM qui demande des chemins d'accès au répertoire d'installation, de log, etc... Le RPM est packagé pour ne pas permettre de passer ces infos en dur dans un fichier de conf ou en ajoutant des argument au lancement.

Je vais essayer de creuser encore le sujet afin de trouver une solution.


Merci en tout cas pour ton aide :)

Hum, en relisant ce post aujourd'hui, je me dis que je n'avais peut-être pas bien compris le besoin quand j'ai répondu hier soir. Et j'ai immédiatement une réponse qui me vient à l'esprit, Expect, sauf que tu dis vouloir t'en passer, si possible. Mais je me pose cependant une question: est-ce que tu veux te passer du produit Expect, le produit écrit en TCL qui existe depuis une bonne vingtaine d'années? Si oui, peut-être que le module Perl expect du CPAN (expect.pm) correspond à tes besoins. Je ne l'ai jamais essayé et ne peux donc rien en dire de plus que ce qu'il y a dans la documentation.