Discussion :

[Lolo78]

Code :

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

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 :

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

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

ou

Code :

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

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

[Philou67430]

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 :

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 :

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

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.

[Philou67430]

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 :

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

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

devient

Code :

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

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

[Lolo78]

$_ 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.

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 :

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

@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...

[Philou67430]

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

Code :

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

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

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