Discussion :

[SupraPF]

Bonjour , je voulais avoir si il était possible d'envoyer plusieurs commandes en ssh avec Net::SSH::Any en une seule session.
Pour faire par exemple :

Code :

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

1
2
3
4
5
6
 
LM-4507-RG1-2-SPARE#conf t
LM-4507-RG1-2-SPARE(config)#int Gi1/1
LM-4507-RG1-2-SPARE(config-if)#description test
LM-4507-RG1-2-SPARE(config-if)#^Z
LM-4507-RG1-2-SPARE#

Ou alors faire un truc du style :

!
conf t
int Gi1/1
description test
end

Si il n'est pas possible avec Net::SSH::Any, est-il possible avec Net::SSH2 ?
Car je cherche comment faire mais si ce n'est pas possible je ne vais pas trouver quand chose
Merci d'avance et bonne journée.

SupraPF

[djibril]

Bonjour,

Je vous ai déjà donné la réponse il y a plusieurs jours dans un autre poste. La réponse est dans la FAQ où j'y ai mis un programme qui permet de lancer x commandes.
Veuillez apprendre à lire nos réponses.

[SupraPF]

Bonjour,

Je vous ai déjà donné la réponse il y a plusieurs jours dans un autre poste. La réponse est dans la FAQ où j'y ai mis un programme qui permet de lancer x commandes.
Veuillez apprendre à lire nos réponses.

J'ai peut-être omis de préciser que je suis sous Windows .
Or lors de l'installation (manuelle + cpan ) de Net::SSH::Expect ou de Net::Appliance::Session (tout module nécessitant IO::Tty) nécessite d'être sous POSIX...

Code :

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

1
2
3
 
C:\Strawberry\cpan\sources\IO-Tty-1.12>perl Makefile.PL
This module requires a POSIX compliant system to work.

[djibril]

Voici ma précédente réponse : http://www.developpez.net/forums/d15...e/#post8274323

[SupraPF]

Au cas où d'autres personnes en aurait besoin voici mon code :

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use Net::SSH2,
my $host     = "host"; 
my $login    = "login";  
my $password = "mdp"; 
my $ssh2 = Net::SSH2->new();
$ssh2->connect($host) or die "Unable to connect Host $host \n";
$ssh2->auth_password($login,$password) or die "Unable to login $login \n";
my $chan = $ssh2->channel();
$chan->blocking(0);
$chan->shell();
 
print $chan "commande1\n";
print "$_" while <$chan>;
 
print $chan "commande2\n";
print "$_" while <$chan>;
 
print $chan "commande3\n";
print "$_" while <$chan>;
 
$chan->close;
}

Merci