Perl, ssh et sftp

Bonjour tout le monde,

J'ai un script perl qui doit faire des sftp et du ssh. Je n'ai pas les librairie net::ssh ni celle pour le sftp donc je suis obligé de passé par les fonction system ou exec ou `cmd`. Le problème c'est que ssh et SFTP envoi des prompt une fois le script lancé. le script attend donc des entrée. je ne vois aps trop comment faire pour les lui donner.
Est ce que vous auriez des idées?.

voilàs le script :

Code:

---

1 2 3 4 5 6 7 8

$cmd = "cd $distant_tmp put /path/test.txt quit ";   exec("sftp $distant_host -b $cmd");

---

le -b sert en principe pour une fichier batch, j'ai essayé de mettre une variable qui contien les insctruction à la plce et c'est pas un grand succès :oops:

pourquoi ne peux-tu pas installer net::ssh & compagnie ?

parce que j'ai aps la main sur le sevreur. ;)

mais bon pa grave j'ai trouvé une solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11

open(loginDesc, "| sftp $host");   print loginDesc 'ls cd path pwd put /path/test.txt exit ';   close loginDesc;

---

le print va exécuter toutes les commandes. Il ne faut surtout pas les écrire les unes derrières les autres.
De même il ne faut pas faire un print par commande sinon il va exécuter une seul commande qui ressemblera à rien ex : "lscdpwd" au lieu de fair eun LS, puis un CD puis un PWD

Voilou en espérant que ca puisse servir à d'autre

intéressant : merci :)

Bon toujours des problème avec le SSH mais là je ne sais aps comment faire...

J'aimerais setter une variable d'environnement (PERL5LIB pour la nommée) afin que les scripts que je lance puisse trouver sans problème une de mes librairies

donc le script que j'ai :

Code:

---

1 2 3

print `ssh $host setenv PERL5LIB /users/moi/meslib:\${PERL5LIB} echo PERL5LIB:\$PERL5LIB`;

---

je suis en CSH pour le shell.

Le echo affiche bien le contenu de PERL5LIB mais sans le dossier meslib ... je ne sais plus trop comment faire :(

Si vous avez des idées je suis preneur :D

Avec l'opérateur backtick, Perl instancie un shell local. C'est ce shell local qui voit passer $PERL5LIB sur sa ligne de commande et qui le remplace par sa valeur locale, alors que tu voudrais que ce soit le shell distant. Il me semble qu'il faudrait un niveau d'encapsulation supplémentaire de la variable pour arriver à ce résultat.

De plus les commandes passées à ssh sont séparées par un retour à la ligne?? Normalement c'est un point-virgule en shell.

ok. Sinon j'ai vu qu'il existe une option perl -I/dir/lib/ pour rajouter un dossier de librairie à @inc au lancement du process perl. Est ce que ca marche bien cette commande ou c'est totalement ingérable?

Bon des news sur le perl -I : ca marche, mais le script que le lance en ssh fait aussi un appel system pourlancer un script PERL... donc est ce que vous auriez un bout de script perl qui pourrait etre exécuter avant l'appel de mes script et qui ajouterai mon dossier de lib au path de perl5LIb le temps de la session ssh?

Merci

bon alors, j'ai réussi à trouver la bonne syntaxe pour ajouter un dossier à pERL5LIB :

setenv PERL5LIB=/dir/dir:$PERL5LIB

Donc quand je lance la commance pas de socuis, ensuite quand je fait un setenv, la PERL5LIB apparait bien.. avant le setenv PERL5LIB... la PERL5LIB n'apparait pas dans la liste des varaible d'environnement.
Autre truc étrange : quand je fais echo PERL5LIB:$PERL5LIB, alors cette vois le /dir/dir n'apparait plus.... je ne sais pas trop quoi faire. vous auriez une idée?

Merci