Discussion :

[danathane]

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 :

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

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

[lennelei]

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

[danathane]

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

mais bon pa grave j'ai trouvé une solution

Code :

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

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

[lennelei]

intéressant : merci

[danathane]

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 :

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

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

[estofilo]

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.