envoyer cmd sur switch cisco et traiter resultat

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: