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