Discussion :

[SupraPF]

Bonjour , J'utilise le module Net::SSH::Any.
Je tente de me connecter à un équipement Cisco Catalyst 4507 et de récupérer la liste des Vlans.
voici mon code

Code perl 5.22.0 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;
use Net::SSH::Any;
my $username="login";
my $hostname="ip";
my $password="pass";
 
my $ssh = Net::SSH::Any->new($hostname, user => $username, password => $password);
$ssh->error and die "Impossible de ce connecter a $hostname: " . $ssh->error;
my @out = $ssh->capture("sh vlan");
$ssh->error and die "Impossible de passer le \"sh vlan\" : " . $ssh->error;
print "@out";

Quand je lance mon script voici le message d'erreur :



J'ai faire des recherches sur le plus connu des WAN mais en vain ...
Quelqu'un aurait-il une réponse à mon problème s'il vous plait ?
Merci

[SupraPF]

Si je supprime la ligne 12 la commande passe bien mais je ne peux plus vérifier si la commande est bonne ..

[magicshark]

J'ai vu ça dans la doc tu peux nous dire ce que tu as dans $stderr ?

Code :

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

1
2
my ($stdout, $stderr) = $ssh->capture2("sh vlan");
print $stderr."\n";

[SupraPF]

Voilà ce que cela me donne :

Ce snot les deux premiere ligne du motd du switch ...

[Philou67430]

Afin que l'on sache séparer ce qui vient de $stdout et $stderr, peut-être pourrais-tu écrire les print ainsi :

Code :

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

1
2
say "OUT=", $stdout;
say "ERR=", $stderr;

[magicshark]

J'ai pas compris c'est quoi ?

Ce snot les deux premiere ligne du motd du switch ...

effectivement mais continu avec le print car par expérience le say ne fonctionne pas toujours suivant les pragmas / Version que tu utilise.

[Philou67430]

Visiblement, say fonctionne dans son cas, il n'a pas d'erreur.

Je dirais plutôt que la commande capture retourne la sortie "antérieure" à la commande "sh vlan".

SupraPF, peut-tu nous préciser ce que fait le Switch quand tu t'y connectes (car même si on sait programme en perl, tout le monde ne connait pas le fonctionnement d'un switch en ssh).

Autre idée : as-tu essayé d'introduire un timeout dans ta commande vlan ?

Code :

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

my @out = $ssh->capture({timeout => 10}, "sh vlan");

[SupraPF]

Lorsqu'on se connecte au switch, le motd (MessageOfTheDay) s'affiche en premier.
C'est comme une page de garde dans un livre .
Ici elle commence comme ca :

Code :

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

1
2
3
4
5
 
CC
**********************************************************************
*                 ACCES RESTREINT - RESTRICTED ACCESS                *
**********************************************************************

CC étant un retour chariot mal interprété ou mal codé mais là n'est pas mon problème.

Avec les say voici le résultat obtenu :




Avec les print voici le résultat obtenu :






Mais j'ai déjà fais des test et la commande passe bien sauf si je met

Code perl 5.22.0 :

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

1
2
3
4
 
my ($stdout,$stderr) = $ssh->capture("sh vlan");
$ssh->error and die "Impossible de passer le \"sh vlan\" : " . $ssh->error;
#La deuxieme ligne pose probleme

[Philou67430]

effectivement mais continu avec le print car par expérience le say ne fonctionne pas toujours suivant les pragmas / Version que tu utilise.

Exact, j'avais mal lu le script.
Soit tu utilises print ainsi :

Code :

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

1
2
say "OUT=", $stdout;
say "ERR=", $stderr;

Soit tu ajoutes

Code :

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

use feature qw(:5.10);

en début de script;

Sinon, je n'ai pas trop d'idée... peut-être devrais-tu contrôler les erreurs juste après le new ? (même si ça parait n'avoir aucun sens).

[SupraPF]

Merci pour vos réponses,
Après je n'ai pas besoin de vérifier si la commande est bonne car c'est moi qui rentre les commandes grâces à une autre fonction mais je ne savais pas pourquoi cette erreur apparaissait alors qu'au début cela marchait
Merci à vous pour vos réponses en tout cas Merci