Pas de retour du routeur, script perl
Bonjour,
J'essaie d'établir une liaison en SSH1 avec un vieux switch HP. Le switch est fonctionnel et je peux m'y connecter et exécuter des commandes via putty. J'ai testé un script en SSH2 qui n'avait pas de retour non plus d'un autre switch HP mais fonctionnait sous Windows et Linux dans le prompt. Je ne peux pas tester SSH1 dans le prompt de Windows ici car SSH1 j'ai une erreur de version ssh "No matching cipher found: [...]" mais je présume que ça fonctionne. Je présume donc que le problème vient du router ou alors de l'utilisation de mon script par rapport au router ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use Net::SSH::Perl;
#log, password, ip
#[...]
my $cmd = "show version";
print "Connexion SSH \n";
my $ssh = Net::SSH::Perl->new($host);
print "Connexion effectuee, identification en cours ...\n";
$ssh->login($username, $password) or die "Impossible de s'authentifier";
print "Execution de ".$cmd."\n";
my ($stdout) = $ssh->cmd($cmd) or die "Impossible d'executer la commande \n";
#A partir d'ici il ne se passe plus rien, le print d'après ne s'effectue pas et je n'ai pas d'erreur.
print $stdout;
print "Fin du programme \n"; |
J'ai utilisé wiresharck pour voir un peu ce qui transitait et voici le résultat
http://image.noelshack.com/fichiers/...oting-ssh1.png
Comme on peut voir, après la connexion il y a bien les données qui sont envoyées au switch mais après je ne reçois rien, j'oublie quelque chose dans mon script pour que ça fonctionne sur un switch ?
Je précise que je suis débutant en Perl, j'ai découvert ce langage il y a quelques jours. Merci de m'avoir lu.
