Plusieurs envois de commandes en SSH en une seule session

Version imprimable

09/06/2015, 09h00
SupraPF

Plusieurs envois de commandes en SSH en une seule session
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:

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 :

Citation:

!
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 :P
Merci d'avance et bonne journée.

SupraPF
09/06/2015, 10h25
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.
09/06/2015, 10h45
SupraPF
Citation:

Envoyé par 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.

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:

1 2 3 C:\Strawberry\cpan\sources\IO-Tty-1.12>perl Makefile.PL This module requires a POSIX compliant system to work.
09/06/2015, 10h53
djibril

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

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

Code:

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