Discussion :

[mverhaeghe]

Bonjour à tous,

Je rencontre un problème sur une instruction grep et je n'arrive pas à m'en sortir. Tout d'abord, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open ( my $FH, '<', $liste_process ) or die("Impossible de lire $liste_process");

while (my $ligne = <$FH>) {
# affiche les éléments trouvés et non trouvés
  my @element = split(/ /g, $ligne);
  if (grep (/$element[0]/,@t)){
    print "$element[0] trouve\n";
	$cpt++;
  }else{
    #print "$element[0] non recherche\n";
  }
}
close($FH);

Le problème vient de la liste d'éléments parsé, j'ai un nom qui se termine en "++", ce qui fait crasher le script avec l'erreur suivante :

Nested quantifiers before HERE mark in regex m/nsclient++ << HERE / at Surveillance.pl line 35, <$FH> line 85.

Je n'arrive pas à indiquer au grep de prendre ça comme une chaine de caractère et de ne pas interpréter le +. Y a t'il un moyen de faire cela ?

[Lolo78]

Hum, sans savoir ce qu'il y a dans $element[0] et dans @t, difficide de faire un diagnostic.

Faute de plus d'information je propose d'essayer de changer la syntaxe comme ceci:

Code :

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

if (grep {/$element[0]/}  @t) { # ...

pour voir si cela marche mieux.

[cmcmc]

Bonjour à tous,

Je n'arrive pas à indiquer au grep de prendre ça comme une chaine de caractère et de ne pas interpréter le +. Y a t'il un moyen de faire cela ?

Tu peux essayer d'encadrer $element[0] avec une paire \Q...\E

Code :

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

1
2
3
Taisha:~/tttmp $ perl -E 'my $re = q{abc++}; my $test = q{0abc++1}; say $1 while ($test =~ m/(\Q$re\E)/g); '
abc++
Taisha:~/tttmp $

[Philou67430]

Ou d'appeler la fonction quotemeta sur $function[0], ce qui est identique à la solution de cmcmc.

[mverhaeghe]

Merci beaucoup pour ces éléments, la solution de la fonction quotemeta fonctionne superbement.
Voici le code corrigé :

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
 
open ( my $FH, '<', $liste_process ) or die("Impossible de lire $liste_process");
 
# On passe les 8 premieres lignes qui correspondent au bandeau, et on commence à lire le fichier
# seek($FH,9,1); -- ne permet pas de sauter les 9 lignes d'entetes
while (my $ligne = <$FH>) {
# affiche les éléments trouvés et non trouvés
  my @element = split(/ /g, $ligne);
  my $element_net = quotemeta($element[0]);
  if (grep (/$element_net/,@t)){
    print "$element[0] trouve\n";
	$cpt++;
  }else{
    #print "$element[0] non recherche\n";
  }
}
close($FH);

[Philou67430]

La solution \Q ... \E te fait gagner une ligne (tout en restant clair)
Sinon, le modificateur /g n'est pas utile dans un split : par défaut, split sépare en autant d'élément qu'il est possible.