Recherche:

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

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 :


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

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


Cela dit, je suis surpris que le grep n'ait pas d'effet de bord sur $_,...

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


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

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

if ($nb_err!=0)
par

if (@result)

Évaluer un tableau dans un contexte...

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

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 :


my $ligne = "FastEthernet0/3 is up, line protocol is up (connected)";
my...

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

my $nb_err=0;
foreach (@output) {
if (/connected/){ #ici je met connected pour avoir un résultat par ce que je...

Je pense que si tu remplaces ceci :


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

par cela

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

open my $RESULTAT, "<", \$resultat;
while (<$RESULTAT>) {
# ...
}
Le handle se comporte comme...