envoyer cmd sur switch cisco et traiter resultat

Bonjour,

je cherche à faire un script qui se connecte à un switch, envoie une commande, récupère le résultat et le traite afin d'en ressortir certaines infos.
Je suis sous windows, avec perl v5.16

Pour l'instant, mon script utilise le module Net::Telnet::Cisco, se connecte au switch, et lance la commande suivante :

Code:

---

1 2	show interfaces | include Ethernet.*line protocol is

---

Ce qui me retourne un résultat du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

FastEthernet0/1 is down, line protocol is down (notconnect) FastEthernet0/2 is down, line protocol is down (notconnect) FastEthernet0/3 is up, line protocol is up (connected) FastEthernet0/4 is down, line protocol is down (notconnect) FastEthernet0/5 is up, line protocol is up (connected) FastEthernet0/6 is down, line protocol is down (notconnect) FastEthernet0/7 is up, line protocol is up (connected) FastEthernet0/8 is down, line protocol is down (notconnect) FastEthernet0/9 is down, line protocol is down (notconnect) FastEthernet0/10 is down, line protocol is down (notconnect) FastEthernet0/11 is up, line protocol is up (connected)

---

Maintenant, ce que je souhaiterai faire, c'est lire ce résultat ligne par ligne, et remonter une alerte (un simple printf avec le nom de l'interface) si quelque part il y a un état err-disabled ou une interface qui est connected mais down. Ce genre de chose.

J'ai un peu parcouru ce topic qui semble faire exactement ce que je souhaite. Ca m'a bien aidé pour la connexion mais la méthode pour lire et traiter le résultat m'échappe complétement.

J'espère ne pas vous avoir perdu en route, je reste à disposition pour plus d'information.

Merci d'avance =)

Bonjour,

tu récupères ce résultat dans quoi? Dans une variable?

Si oui, tu peux splitter la variable sur début de ligne pour obtenir un tableau de lignes, puis examiner chaque ligne une à une pour voir si elle contient ce que tu recherches. Quelque chose comme ça:

Code:

---

1 2 3 4

my @lignes = split /^/, $resultat; while (defined ($_ = shift @lignes)) { print "ERR: $_ \n" if /err-disabled/; }

---

Et pourquoi ne pas utiliser SNMP, c'est prévu pour (d'autant plus que je suis presque sur qu'il y a un module SNMP dans perl) ?

Se connecter à un équipement pour récupérer périodiquement le statut des interfaces me parait un peut brutal

@Lolo78 : Merci, je vais éssayer ta méthode. Je débute en Perl donc ca va me prendre un certain temps avoir d'avoir le résultat attendu je pense ^^

@ram-0000 : En faite j'avais aussi pensé à utiliser SNMP et un logiciel comme Nagios pour la supervision des switchs mais à la fin des tests je dois obtenir un petit compte rendu clair de l'état du réseau que même quelqu'un qui n'est pas informaticien doit comprendre. Donc je voulais commencer par faire un script perl pour récupérer les infos et les "mettre en page" à ma convenance.
Mon responsable craint que Nagios soit un peu comme Ciscoworks LMS, c'est à dire trop "uzine à gaz" dans lequel on ne voit pas forcément l'éssentiel.

Citation:

---

Envoyé par Lolo78

Bonjour,

tu récupères ce résultat dans quoi? Dans une variable?

Si oui, tu peux splitter la variable sur début de ligne pour obtenir un tableau de lignes, puis examiner chaque ligne une à une pour voir si elle contient ce que tu recherches. Quelque chose comme ça:

Code:

---

1 2 3 4

my @lignes = split /^/, $resultat; while (defined ($_ = shift @lignes)) { print "ERR: $_ \n" if /err-disabled/; }

---

---

Le handle de fichier plaqué sur une variable au lieu d'un vrai fichier et aussi une solution :

Code:

---

1 2 3 4 5

open my $RESULTAT, "<", \$resultat; while (<$RESULTAT>) { # ... } Le handle se comporte comme si on lisait dans un vrai fichier, et $/ est le séparateur de ligne. Ca marque aussi en écriture. ;)

---

Bon j'ai un peu de mal à obtenir ce que je souhaite. En faite je ne comprend pas vraiment vos morceaux de code.


Pour être plus précis, mon script envoi cette commande :

Code:

---

my @output = $session->cmd('show interfaces | include Ethernet.*line protocol is');

---

La commande :

Code:

---

print @output;

---

m'affiche ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

FastEthernet0/1 is down, line protocol is down (notconnect) FastEthernet0/2 is down, line protocol is down (notconnect) FastEthernet0/3 is up, line protocol is up (connected) FastEthernet0/4 is down, line protocol is down (notconnect) FastEthernet0/5 is up, line protocol is up (connected) FastEthernet0/6 is down, line protocol is down (notconnect) FastEthernet0/7 is up, line protocol is up (connected) FastEthernet0/8 is down, line protocol is down (notconnect) FastEthernet0/9 is down, line protocol is down (notconnect) FastEthernet0/10 is down, line protocol is down (notconnect) FastEthernet0/11 is up, line protocol is up (connected)

---

Ensuite il faudrait que je récupère (par exemple) "FastEthernet0/9" si quelque part sur la ligne qui traite de cette information, se trouve le mot err-disabled.

Je pense que vous aviez compris mais c'est moi qui ne comprend pas vos codes xD.

j'ai testé :

Code:

---

1 2 3 4

my @lignes = split(/^/, @output); while (defined ($_ = shift @lignes)) { print "ERR: $_ \n" if /connected/; }

---

avec comme vous le voyez une recherche sur /connected/ pour être sur de ressortir au moins un résultat, mais rien ne s'affiche lorsque j'éxécute ce code.

La première étape je pense, est de découper mon @output en ligne, de rechercher avec une expression régulière le mot err-disabled, puis de retourner dans une variable le nom de l'interface.

En faite, j'aimerai savoir comment passé une expression régulière sur mon @output. je crois que c'est plus prudent de commencer petit quand on ne connait pas trop.

Merci pour votre patience en tout cas ^^

bonjour cureuil57 . Je suis entrain d'écrire un script qui devra faire la même chose que le tien, mais il me retourne le resultat 1 aulieu de me retourner la liste des voisins .

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

!/usr/bin/perl use Net::Telnet; $telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die'); $telnet->open('10.10.10.10'); $telnet->waitfor('/Username: $/i'); $telnet->print('user'); $telnet->waitfor('/password: $/i'); $telnet->print('MDP'); #$telnet->waitfor('/router1#/i'); $telnet->waitfor('/#$/i'); $telnet->print('show cdp neighbors'); $output = $telnet->waitfor('/#$/i'); print $output;

---

Peut tu m'aider à résoudre cela stp ?

NB: J'ai posté la même question sur un nouveau sujet si tu prefére me répondre laba

Citation:

---

Envoyé par cureuil57

Ensuite il faudrait que je récupère (par exemple) "FastEthernet0/9" si quelque part sur la ligne qui traite de cette information, se trouve le mot err-disabled.

---

Je pense que si tu remplaces ceci :

Code:

---

1 2 3 4

my @lignes = split(/^/, @output); while (defined ($_ = shift @lignes)) { print "ERR: $_ \n" if /connected/; }

---

par cela

Code:

---

1 2 3 4

foreach (@output) { print "ERR: $_ \n" if /err-disabled/; }

---

C'est à dire que tu affiches chaque ligne qui contient "err-disabled".

Le split était utile si tu récupérais le résultat dans une variable scalaire, pour transformer celle-ci en tableau. Là tu récupères directement dans le tableau @output, le split n'est plus utile; il suffit de vérifier chaque élément du tableau comme Philou te l'as montré avec la construction utilisant le foreach.

Merci à vous !! cela fonctionne presque parfaitement.

Mon code ressemble à ça maintenant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my @result; my $nb_err=0; foreach (@output) { if (/connected/){ #ici je met connected pour avoir un résultat par ce que je n'ai pas de err-disabled @result[$nb_err] = $_; $nb_err++; } } if ($nb_err!=0){ print "Liste des interfaces err-disabled :\n"; print @result; } else { print "aucune interface err_disabled détectée" }

---

et donne comme résultat :

Code:

---

1 2 3 4 5 6 7 8 9

Scalar value @result[$nb_err] better written as $result[$nb_err] at HOME\Bureau\super.pl line 47. Liste des interfaces err-disabled : FastEthernet0/3 is up, line protocol is up (connected) FastEthernet0/5 is up, line protocol is up (connected) FastEthernet0/6 is up, line protocol is up (connected) FastEthernet0/7 is up, line protocol is up (connected) FastEthernet0/11 is up, line protocol is up (connected) FastEthernet0/48 is up, line protocol is up (connected) GigabitEthernet0/1 is up, line protocol is up (connected)

---

Cela s’exécute mais j'ai un warning pas très beau. Une idée pour le faire partir ? ensuite, histoire d'être un peu difficile mais ça me sera très utile pour la suite, j'aimerai récupérer seulement "/FastEthernet.\/../" plutôt que la ligne entière "FastEthernet.\/.. is up, line protocol is up (connected)".

Encore merci à vous =) vous m'avez déjà bien aidé :ccool:

Pour encore mieux écrire cette partie de code, voici comment faire :
Remplace

Code:

---

1 2 3 4 5 6 7

my $nb_err=0; foreach (@output) { if (/connected/){ #ici je met connected pour avoir un résultat par ce que je n'ai pas de err-disabled @result[$nb_err] = $_; $nb_err++; } }

---

par

Code:

---

1 2 3 4 5

foreach (@output) { if (/connected/){ #ici je met connected pour avoir un résultat par ce que je n'ai pas de err-disabled push @result, $_; } }

---

L'utilisation de @tableau[$indice] est syntaxiquement correcte, mais sémantiquement incorrecte, car le sigil @ fait référence à une valeur tableau, alors que tableau[$indice] est un scalaire, c'est tableau qui est un tableau.
En toute rigueur, il faut donc écrire $tableau[$indice].
Par contre, si l'on veut récupérer une liste de deux éléments quelconque du tableau (par exemple, le premier et le dernier), il faut bien utilise le sigil @, car dans ce cas, les valeurs retournées sont multiples : @tableau[0,-1].

Pour ne récupérer que le premier élément d'une ligne (chaque élément étant séparer par un espace), voici deux méthodes :

Code:

---

1 2 3 4

my $ligne = "FastEthernet0/3 is up, line protocol is up (connected)"; my $element; ($element) = split /\s+/, $ligne; ($element) = $ligne =~ /(.*?)\s+/;

---

Citation:

---

Envoyé par Philou67430

Code:

---

push @result, $_;

---

---

Effectivement, le warning ne s'affiche plus à l'exécution, merci pour l'info =)

Et voila le résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my @result; my $nb_err=0; my $interface; foreach (@output) { if (/connected/){ ($interface) = split /\s+/; push @result, "$interface\n"; $nb_err++; } } if ($nb_err!=0){ print "Liste des interfaces err-disabled :\n"; print @result; } else { print "aucune interface err_disabled détectée" }

---

pour :

Code:

---

1 2 3 4 5 6 7

Liste des interfaces err-disabled : FastEthernet0/3 FastEthernet0/5 FastEthernet0/6 FastEthernet0/7 FastEthernet0/11 GigabitEthernet0/1

---

Merci beaucoup !! =) problème résolu =)

As-tu essayé l'une des méthodes du message #12 ?

Oui,j'ai édité mon précédent post je n'avais pas vu qu'il y avait eu une réponse après.

Merci beaucoup =)

Tu peux aussi supprimer totalement l'usage de la variable $nb_err (déclaration et incrémentation), et remplacer le test

Code:

---

if ($nb_err!=0)

---

par

Code:

---

if (@result)

---

Évaluer un tableau dans un contexte de scalaire (ici, comme un booléen) retourne la taille du tableau, qui pris comme un booléen, retourne VRAI s'il n'est pas vide.

Citation:

---

Envoyé par Philou67430

Tu peux aussi supprimer totalement l'usage de la variable $nb_err (déclaration et incrémentation), et remplacer le test

Code:

---

if ($nb_err!=0)

---

par

Code:

---

if (@result)

---

Évaluer un tableau dans un contexte de scalaire (ici, comme un booléen) retourne la taille du tableau, qui pris comme un booléen, retourne VRAI s'il n'est pas vide.

---

Effectivement. C'est modifié :P.

Un jour j'arriverai peut-être à maitriser les expressions régulières en Perl mais pour le moment j'ai un peu de mal.
Du coup quelqu'un saurait comment afficher seulement les lignes ou il y a au moins 1 input error ou 1 CRC (peu importe le nombre de overrun et ignored, histoire que ce soit plus drôle) ?

Code:

---

print @int_err;

---

donne :

Code:

---

1 2 3 4 5 6 7 8 9 10

0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 1 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 1 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored

---

Peut-être comme ceci, avec une expression régulière un peu spécifique :

Code:

---

print foreach grep /(^|\s)[1-9]\d* input error.*?\s+[1-9]\d* CRC/, @int_err

---

Pour être plus générique, je ferai une analyse de chaque ligne afin de stoker les informations dans un tableau de hash, et je filtrerai ensuite ce tableau.
Un peu comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

my @err; foreach my $int_err (@int_err) { push @err, {}; foreach my $err (split /\s*,\s*/, $int_err) { my ($nb_err, $err_type) = $err =~ /(\d+)\s+(.*)/; $err[-1]->{$err_type} = $nb_err; } }   foreach my $err (grep $_->{"input errors"} || $_->{"CRC"}, @err) { print join ", ", map "$err->{$_} $_", keys %$err; print "\n"; }

---

Oula j'ai un peu du mal à suivre ta deuxième méthode. Je vais déjà essayer de faire fonctionner la première pour avoir un résultat acceptable et par la suite j’essaierai d'améliorer en me basant sur ta méthode générique.

Donc pour remettre dans le contexte plus précisement :

j'ai un tableau d'interface tel que @all_interface :

Code:

---

1 2 3 4 5

FastEthernet0/1 FastEthernet0/2 FastEthernet0/3 FastEthernet0/4 FastEthernet0/5

---

sur chaque interface je passe la commande :

Code:

---

1 2 3 4 5 6

my @int_CRC; foreach (@all_interfaces){ @int_CRC = $session->cmd("sh int $_ \| inc CRC"); #print $_; #print @int_CRC; }

---

print $_ et print @int_CRC donnent :

Code:

---

1 2 3 4 5

FastEthernet0/1 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored FastEthernet0/2 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored FastEthernet0/3 0 input errors, 1 CRC, 0 frame, 0 overrun, 0 ignored FastEthernet0/4 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored FastEthernet0/5 0 input errors, 0 CRC, 0 frame, 0 overrun, 0 ignored

---

C'est bourrin par ce que ça envoie masse commandes au switch au lieu d'une seule (show interfaces | include CRC) mais c'est le seul moyen que j'ai trouvé pour avoir le nom de l'interface + le récap des erreurs.

Du coup je pensais faire quelque chose comme :

Code:

---

1 2 3 4 5 6 7

my @int_CRC; foreach (@all_interfaces){ @int_CRC = $session->cmd("sh int $_ \| inc CRC"); if (grep /[1-9]\d* input error.*?\s+[1-9]\d* CRC/, @int_CRC){ print "$_\n" } }

---

Pour afficher seulement le nom de l'interface ou on détecte au moins une input error ou un CRC.

Mais ça ne fonctionne pas et je ne comprend pas pourquoi. Le script ne me renvoie aucune interface, même quand je teste avec [0-9] input ou CRC.
J'ai essayé de bidouillé l'expression régulière avec le peu que je connais mais je n'obtiens rien =/

:aie:

EDIT

Finalement,

Code:

---

1 2 3 4 5 6 7

my @int_CRC; foreach (@all_interfaces){ @int_CRC = $session->cmd("sh int $_ \| inc CRC"); if (grep /[1-9]+ input error.*[1-9]+ CRC/, @int_CRC){ print "$_\n" } }

---

semble fonctionner comme je le souhaite.
Je rappel que je dois grep s'il y a une input erreur ou plus (pareil pour le CRC).
Si vous voyez un problème dans mon expression régulière ou si vous pensez qu'elle ne traite pas correctement le problème je suis ouvert à toute critique je suis pas très bon en regex.

Merci =)

Citation:

---

Envoyé par cureuil57

Code:

---

1 2 3 4

if (grep /[1-9]+ input error.*[1-9]+ CRC/, @int_CRC){ print "$_\n" } }

---

---

Je ne pense pas que ça fasse ce que tu veux (si du moins j'ai compris ce que tu voulais faire).

Le grep va appliquer l'expression régulière à tous les éléments du tableau et, si l'un des éléments a été reconnu par l'expression régulière, renverra vrai ce qui imprimera $_, alors que $_ ne contient pas nécessairement à ce moment ce que tu veux imprimer.

Si j'ai compris ce que tu cherches à faire (imprimer les éléments qui reconnaissent l'expression régulière), il faudrait faire, par exemple:

Code:

---

print join "\n", grep /[1-9]+ input error.*[1-9]+ CRC/, @int_CRC;

---

ou

Code:

---

1 2 3

foreach (@int_CRC) { print "$_\n" if /[1-9]+ input error.*[1-9]+ CRC/; }

---

Citation:

---

Envoyé par Lolo78

Le grep va appliquer l'expression régulière à tous les éléments du tableau et, si l'un des éléments a été reconnu par l'expression régulière, renverra vrai ce qui imprimera $_, alors que $_ ne contient pas nécessairement à ce moment ce que tu veux imprimer.

---

$_ contiendra une valeur de @all_interfaces ($_ ne semble pas affecté par le grep), et c'est ce que cureuil souhaitait :

Citation:

---

Envoyé par cureuil57

Pour afficher seulement le nom de l'interface ou on détecte au moins une input error ou un CRC.

---

Cela dit, je suis surpris que le grep n'ait pas d'effet de bord sur $_, et par précaution, je dirais qu'il vaut toujours mieux écrire des boucles foreach avec un symbole :

Code:

---

1 2 3 4 5 6

foreach my $interface (@all_interfaces) { my @int_CRC = $session->cmd("sh int $interface \| inc CRC"); if (grep /[1-9]+ input error.*[1-9]+ CRC/, @int_CRC){ print "$interface\n" } }

---

Pour ce qui est de l'expression régulière elle-même, il faudrait connaitre la syntaxe complète des lignes analysées, mais si ça marche comme ça, pourquoi pas.

Un petit complément : à partir de la version 5.10, on peut aussi remplacer l'usage du grep par l'opérateur ~~ (smart matching), ainsi :

Code:

---

if (grep /[1-9]+ input error.*[1-9]+ CRC/, @int_CRC){

---

devient

Code:

---

if (@int_CRC ~~ /[1-9]+ input error.*[1-9]+ CRC/) {

---

Citation:

---

Envoyé par Philou67430

$_ contiendra une valeur de @all_interfaces ($_ ne semble pas affecté par le grep), et c'est ce que cureuil souhaitait

---

OK, au temps pour moi, je ne savais pas ce qu'il voulait faire, ça me paraissait un peu curieux.

Citation:

---

Envoyé par Philou67430

Cela dit, je suis surpris que le grep n'ait pas d'effet de bord sur $_, et par précaution, je dirais qu'il vaut toujours mieux écrire des boucles foreach avec un symbole

---

Il me semble bien (j'en suis quasi sûr) que map, grep et le foreach sans variable d'itération "localisent" la valeur de $_, donc a priori pas de problème (contrairement à while, qui ne le fait pas). Sinon, on ne pourrait pas écrire des choses enchaînant les opérateurs de listes du genre:

Code:

---

@toto = map {...} grep {...} map {...} @titi;

---

Il faut tout de même faire bien attention à ce que l'on fait, il est assez facile de se prendre les pieds dans le tapis...

Citation:

---

Envoyé par Lolo78

Sinon, on ne pourrait pas écrire des choses enchaînant les opérateurs de listes du genre:

Code:

---

@toto = map {...} grep {...} map {...} @titi;

---

---

Bon sang, mais c'est bien sûr ! :ccool: