module Net::SSH2 curiosité exécution commande ssh ?

Bonjour à tous

j'utilise le module : Net::SSH2 afin de de me connecter et exécuter des commandes sur serveur.

Ce que je ne comprend pas c'est que si je mets pas un "sleep 2" par exemple après la commande il ferme le tunnel avant d'avoir réllement exécuter la commande sans attendre le retour.

Je souhaiterai donc avoir vos avis !

voic un extrait de mon code :

Code:

---

1 2 3 4 5 6 7 8 9

my $chantest = $ssh2_test->channel();   $chantest->exec('/etc/init.d/smbd stop');   sleep 2;#si je l'enlève le ne fait rien   $chantest->close();

---

j'utilise se module car il me permet de me connecter avec des clefs ssh directement

Je vous remercie

Bonjour,
je n'utilise pas ce module, mais la doc fait état d'un timeout :

Code:

---

1 2 3 4 5

timeout ( timeout_ms ) Enables a global timeout (in milliseconds) which will affect every action. libssh2 version 1.2.9 or higher is required to use this method.

---

As-tu essayé ?

Je vais tenter avec ce paramètre et je vous ferai signe.

Se qui m'embête un peut concrètement avec le timeout si je comprends bien c'est un temps prédéfinit?

Car si j'envoie un "cp" d'un gros fichier par exemple et que le timeout est trop court ça risque de me couper la commande avant.. je suppose.

Je n'ai pas tous les éléments, mais je teste ça lundi.

Je reste surpris que le programme n'attends pas tous simplement qu'on lui rende la main pour fermer la connexion ssh.(mais je reste un débutant !)

je vous remercie

Oui, c'est l'impression que j'ai eu aussi :
"Enables a global timeout"

Ça me semble s'appliquer depuis le début de la connexion jusqu'à la déconnexion
Bon test ;)

Voici ce que dit la documentation de la bibliothèque libssh2 sous-jacente:

Citation:

---

Set the timeout in milliseconds for how long a blocking the libssh2 function calls may wait until they consider the situation an error and return LIBSSH2_ERROR_TIMEOUT.

By default or if you set the timeout to zero, libssh2 has no timeout for blocking functions.

---

Autrement dit, si on met ce paramètre à 0, il n'y aura pas de timeout.

Mais si un appel qui ne devrait prendre normalement que moins d'une seconde s'éternise, il peut y avoir de bonnes raisons de l'arrêter au bout de, par exemple, 20 ou 30 secondes, afin soit de le relancer, soit de vérifier quelque chose d'autre avant de le relancer. De même que quand on surfe sur le Web, parfois quand une page ne vient pas, on a intérêt à essaier de la redemander plutôt que d'attendre sans fin une réponse peut-être définitivement perdue quelque part dans les sables mouvants du WWW.

Bonjour,

Effectivement vu sous cette angle ça peut être utile. Par contre comment fait on dans ce cas lorsqu'on à une commande à exécuter dont le temps peut être très variable.

comme la copie d'un fichier qui diffère selon la taille. Ça me parait plus compliqué de prévoir le temps d’exécution.

L'idéal serait effectivement que le programme rende la main après l'exécution.

Concernant le timeout je ne sais pas trop quand le placer est-ce au moment de la construction de l'objet ?
ex ssh2->new(timeout ( timeout_ms ))


J'avoue que j'ai un peu de mal encore avec l'utilisation des modules.

je vous remercie

Franchement, je fais parfois du ssh en shell pour des commandes très simples (du genre, généralement, lancer en tâche de fond un programme non-bloquant installé sur l'autre bécane, puis me mettre en sommeil et aller voir de temps en temps s'il s'est terminé afin de récupérer les données produites quand c'est fini), mais je n'utilise pas ce module Perl.

Mais j'imagine que pour des commandes courantes de durée relativement stable, de type ls, cd, echo, mkdir, date, chmod, head, rm, touch, etc., tu peux fixer un time out assez bas, afin d'éviter qu'une commande bloquante ne gèle indéfiniment ton programme. Pour des commandes dont la durée d'exécution varie et dépend de la taille d'un fichier (sort, cp, ftp, sftp, rcp, grep, wc, etc.), tu peux sans doute commencer par récupérer la taille du fichier à traiter et essayer d'adapter le time out de façon empirique à cette taille. Ou alors, tu lances le vrai travail en tâche de fond, et dans ce cas tu n'es bloqué que pendant le temps de lancer le processus fils.

Peut-être que la méthode wait_closed() est celle que tu devrais utiliser ?

EDIT : Apparemment la méthode habituelle est simplement de lire sur le canal, on reçoit un eof lorsque la commande est finie. Pour quelques exemple d'utilisation du module, j'ai trouvé cette page : http://www.perlmonks.org/?node_id=569657
--
Jedaï

Citation:

---

Envoyé par Lolo78

Franchement, je fais parfois du ssh en shell pour des commandes très simples (du genre, généralement, lancer en tâche de fond un programme non-bloquant installé sur l'autre bécane, puis me mettre en sommeil et aller voir de temps en temps s'il s'est terminé afin de récupérer les données produites quand c'est fini), mais je n'utilise pas ce module Perl.

Mais j'imagine que pour des commandes courantes de durée relativement stable, de type ls, cd, echo, mkdir, date, chmod, head, rm, touch, etc., tu peux fixer un time out assez bas, afin d'éviter qu'une commande bloquante ne gèle indéfiniment ton programme. Pour des commandes dont la durée d'exécution varie et dépend de la taille d'un fichier (sort, cp, ftp, sftp, rcp, grep, wc, etc.), tu peux sans doute commencer par récupérer la taille du fichier à traiter et essayer d'adapter le time out de façon empirique à cette taille. Ou alors, tu lances le vrai travail en tâche de fond, et dans ce cas tu n'es bloqué que pendant le temps de lancer le processus fils.

---

Bonjour,

Effectivement j'avais pensé à cette solution.
Mais lorsque je tente de lancer cette commande en tache de fond (à l'aide d'un '&'), il s'exécute de la même façon.

je dois mal m'y prendre.

exemple

Code:

---

1 2	#$chan->exec("/etc/init.d/smbd restart &");

---

je te remercie

Citation:

---

Envoyé par Jedai

Peut-être que la méthode wait_closed() est celle que tu devrais utiliser ?

EDIT : Apparemment la méthode habituelle est simplement de lire sur le canal, on reçoit un eof lorsque la commande est finie. Pour quelques exemple d'utilisation du module, j'ai trouvé cette page : http://www.perlmonks.org/?node_id=569657
--
Jedaï

---

Bonjour dejaï,

Ta solution à l'air inintéressante ce que je ne maîtrise:calim2: pas c'est l'utilisation.
J'ai parcouru l'exemple dont tu parles, je ne trouve pas de wait_closed().

je trouve ce type de chose:

Code:

---

1 2 3 4 5 6 7 8 9

#après avoir lancé des commandes $chan->send_eof();#là je suppose qui lance un eof mais cela ne va t il pas couper la commande justement? $chan->close;   #je vois également une commande du type: $chan3->blocking(1); #ou $chan3->blocking(0);#serait-ce pour libérer le channel pour lancer une commande suivante?

---

merci pour vos réponse

Cordialement

Citation:

---

Envoyé par tintin3158

Bonjour,

Effectivement j'avais pensé à cette solution.
Mais lorsque je tente de lancer cette commande en tache de fond (à l'aide d'un '&'), il s'exécute de la même façon.

je dois mal m'y prendre.

exemple

Code:

---

1 2	#$chan->exec("/etc/init.d/smbd restart &");

---

---

Au pire, tu mets la commande "/etc/init.d/smbd restart &" dans un shell et tu lances le shell.

A essayer aussi: "nohup /etc/init.d/smbd restart &"

La discussion sur Perlmonks propose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#my $chan = $ssh2->channel(); #$chan->blocking(0); #$chan->exec('ls -la'); #while (<$chan>){ print }   # to run a remote command in the background # you need to semi-daemonize it by redirecting it's filehandles my $chan3 = $ssh2->channel(); $chan3->blocking(1); $chan3->exec("nohup /home/zentara/perlplay/net/zzsleep > foo.out 2> fo +o.err < /dev/null &"); $chan3->send_eof;

---

A priori le premier exemple (commenté) est ce qu'il faut faire si la sortie de la commande t'importe, tandis que le deuxième exemple correspond plus à ton cas d'une commande dans l'arrière-plan (mais le programme n'attendra probablement pas qu'elle s'achève donc le premier exemple est peut-être plus adapté si c'est ce que tu souhaites).

--
Jedaï

Citation:

---

Envoyé par Lolo78

Au pire, tu mets la commande "/etc/init.d/smbd restart &" dans un shell et tu lances le shell.

A essayer aussi: "nohup /etc/init.d/smbd restart &"

---

merci lolo pour ta suggestion, je viens de tester malheureusement ça ne fonctionne pas .

Citation:

---

Envoyé par Jedai

La discussion sur Perlmonks propose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#my $chan = $ssh2->channel(); #$chan->blocking(0); #$chan->exec('ls -la'); #while (<$chan>){ print }   # to run a remote command in the background # you need to semi-daemonize it by redirecting it's filehandles my $chan3 = $ssh2->channel(); $chan3->blocking(1); $chan3->exec("nohup /home/zentara/perlplay/net/zzsleep > foo.out 2> fo +o.err < /dev/null &"); $chan3->send_eof;

---

A priori le premier exemple (commenté) est ce qu'il faut faire si la sortie de la commande t'importe, tandis que le deuxième exemple correspond plus à ton cas d'une commande dans l'arrière-plan (mais le programme n'attendra probablement pas qu'elle s'achève donc le premier exemple est peut-être plus adapté si c'est ce que tu souhaites).

--
Jedaï

---

Bonjour jedaï,

un grand merci, la fonction proposé fonctionne parfaitement.

petite question pour culture :
$chan3->blocking(1); ou $chan3->blocking(0); à quoi cela sert-il ? différences?

concernant la fin de votre code:

Code:

---

1 2 3 4 5 6 7 8 9

$chan3->exec("nohup /home/zentara/perlplay/net/zzsleep > foo.out 2> fo+o.err < /dev/null &");   ################################ # quelle est l'utilité de : > foo.out 2> fo+o.err < /dev/null & #################################   $chan3->send_eof;

---

dans tous les cas merci beaucoup