Discussion :

[Maillon]

Bonjour,

Alors voilà j'aimerai me connecter en perl à une machine distante mais pour executer une commande en root.
Sachant que je ne peux pas me connecter en root via ssh (permission refusée).
Sachant également que quand je me connecte sur la machine distante, pour passer en root il faut que je fasse "sudo su -" et ensuite que je tape le mot de passe.

Il faudrait que je fasse un truc du genre :
$cible="machine_distante";
system("/usr/local/bin/ssh $cible; sudo su -; motdepasse; commande à faire en root");

J'ai penser à la commande expect mais je sais pas trop comment je pourrais l'utiliser ici.

Je suis sous SunOs pour information si ça peut aider.

Merci beaucoup de votre aide.

Cordialement,

[Jedai]

Tu peux utiliser le module Net::SSH::Perl par exemple.

--
Jedaï

[Maillon]

Voici ce que j'ai fais finalement et qui marche (même si ya toujours un prob mais bon c'est mineur je pense) :

#!/usr/bin/expect -f

set prompt ">>> ";
set force_conservative 1;

set timeout 3
spawn ssh host
expect "$prompt"
send "sudo su -\r"
expect "Password: $"
send "motdepasse\r"
expect "$prompt"
send -- "sh /tmp/test.sh\r"
send -- "exit\r"
send -- "exit\r"
interact