Discussion :

[caramon _majere]

Bonjour,

Testant sous cigwin en attendant de mettre en production sur une station linux. Je test des connections SSH vers des routeurs et switch en utilisant le module Net::SSH::Any

Quand la connexion est ok, pas de souçis, je récupére les valeurs que je souhaite.
Quand la connexion ne peux pas se faire, j'ai un message d'erreur explicite (même si pas celui que j'ai indiqué) mais j'ai des lignes en plus dont je voudrais me débarrasser pour que ca soit plus présentable pour un rapport.

Code :

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
24
25
26
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
no warnings 'uninitialized';
 
use Net::SSH::Any;
 
my $host = '172.20.98.199';
my $user = 'admin';
 
my %param=(
    user => $user,
    password=>'cisco',
    timeout => 2,
    #port => '22'
    );
 
use Net::SSH::Any;
 
my $ssh = Net::SSH::Any->new($host,%param);
$ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
 
my @out = $ssh->capture("show running");
 
print "@out";

Résultat:
$ perl test.pl
ssh: connect to host 172.20.98.199 port 22: Connection timed out
Use of uninitialized value $pid in waitpid at /usr/lib/perl5/site_perl/5.22/Net/SSH/Any/OS/_Base.pm line 206.
Use of uninitialized value $pid in numeric eq (==) at /usr/lib/perl5/site_perl/5.22/Net/SSH/Any/OS/_Base.pm line 210.
Use of uninitialized value $pid in concatenation (.) or string at /usr/lib/perl5/site_perl/5.22/Net/SSH/Any/OS/_Base.pm line 220.
Use of uninitialized value $? in scalar assignment at /usr/lib/perl5/site_perl/5.22/Net/SSH/Any/Backend/_Cmd.pm line 124.

Couldn't establish SSH connection: $host => ne s'affiche pas, mais surtout je voudrais ne pas afficher les lignes en bleues

J'ai testé en commentant la ligne "use warnings" mais ca ne change rien.

Une idée?

Merci

[Lolo78]

Il y a sans doute une meilleure solution, mais tu peux toujours essayer de filtrer tes erreurs:

Code :

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

1
2
 
print for grep { not /Use of uninitialized value/ } @out;

[caramon _majere]

Bonjour Lolo,

les messages d'erreurs sont du à la commande :

my $ssh = Net::SSH::Any->new($host,%param);
$ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;

ou j'ai volontairement mis une @IP non joignable pour faire un test.

Ta solution ne fonctionnera pas dans le cas présent puisque @out est le résultat d'une commande avec une connexion réussie.

[Philou67430]

les messages d'erreurs sont du à la commande :

my $ssh = Net::SSH::Any->new($host,%param);
$ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;

Non, ils sont dus à la ligne :

Code :

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

my @out = $ssh->capture("show running");

Ces affichages (en rouge) sont des warnings que tu peux ignorer ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
my $ssh = Net::SSH::Any->new($host,%param);
$ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
my @out;
{
  local $SIG{__WARN__} = sub {};
  @out = $ssh->capture("show running");
  $ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
}
print "@out" if @out;

Par contre, je ne sais pas comment capturer le message "ssh: connect to host 172.20.98.199 port 22: Connection timed out", également généré par cette ligne de code.

[JeanMi3000]

Par contre, je ne sais pas comment capturer le message "ssh: connect to host 172.20.98.199 port 22: Connection timed out", également généré par cette ligne de code.

En redirigeant le STDOUT et STDERR ? (proposition)

[caramon _majere]

Code :

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

1
2
3
4
5
6
7
8
9
my $ssh = Net::SSH::Any->new($host,%param);
$ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
my @out;
{
  local $SIG{__WARN__} = sub {};
  @out = $ssh->capture("show running");
  $ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
}
print "@out" if @out;

Effectivement ca donne comme résultat :

-bash-4.3$ perl test.pl
ssh: connect to host 172.20.98.199 port 22: Connection timed out
Couldn't establish SSH connection: 172.20.98.199slave process exited unexpectedly with error code 255 at test.pl line 28.

il faut que je regarde ton bloc Philou car je ne connais pas

Code :

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

1
2
3
4
5
{
  local $SIG{__WARN__} = sub {};
  @out = $ssh->capture("show running");
  $ssh->error and die "Couldn't establish SSH connection: $host" . $ssh->error;
}

je vais tester la redirection comme piste de STDERR.

Le message de timeout doit être un message de openssh

Code :

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

1
2
-bash-4.3$ ssh admin:cisco@172.20.98.199
ssh: connect to host 172.20.98.199 port 22: Connection timed out

[Philou67430]

Je n'ai pas réussi, en mode debug, à trouver l'instruction qui provoque l'affichage de l'erreur de timeout. La seule certitude que j'ai, c'est que cette erreur est générée par un sous-processus lancé en parallèle du processus principal.

[caramon _majere]

C'est bon j'ai trouvé l'information pour le bloc

Code :

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

  local $SIG{__WARN__} = sub {};

Ca peut aider

[caramon _majere]

Merci Philou

Je pense que je vais garder le messager d'erreur d'origine assez explicite.
J'en ferais un plus si d'autre cas ce présente.

Déjà le bloc pour supprimer les warning générés par une commande permet de bien nettoyer et géré l'affichage pour la suite.

[Lolo78]

Je n'ai pas réussi, en mode debug, à trouver l'instruction qui provoque l'affichage de l'erreur de timeout.

Peut-être qu'avec la technique expliquée ici: http://perl.developpez.com/faq/perl/...tialized-value...

[Philou67430]

@Lolo : quand je dis que je n'ai pas réussi, c'est surtout que je n'ai pas passé assez de temps (parce que je n'en avais pas) pour trouver Cela dit, je ne connais pas bien le module DB, et l'astuce donnée est intéressante. A vrai dire, dans le cas présent, je ne suis même pas sûr que le message est émis par warn ! Je vais voir.
@Caramon : l'instruction $SIG{__WARN__} = sub {} permet d'ignorer les warning. Mais tu auras sans doute compris qu'aui lieu de ça, tu peut aussi les traiter (à l'intérieur du sub). Dans ce cas, le texte de la warning a émettre se trouve dans le premier paramètre de la fonction ($_[0]).

[caramon _majere]

@Philou
J'étais tombé sur cette page en cherchant l'explication de ton bloc
https://perlmaven.com/how-to-capture...rnings-in-perl
Pas encore fait les test pas manque de temps.

@Lolo
vu vite fait le lien mais pas encore testé par manque de temps

[Philou67430]

Très bon le blog de Gabor J'ai pas trop le temps de lire ses newsletters en ce moment, dommage