recherche de variable

Bonjour,

J'ai un fichier dans lequel, je souhaite récupérer la valeur suivante :"Démarrage de la tâche /SAB/(AX_SAUVEGARDE_Delais_4ans)"

ors la valeur est bien présente dans le fichier, mais via la commande grep, il ne l'a trouve pas. est ce parce que ma variable a rechercher est trop longue.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

use strict; use warnings; use utf8; use Carp;   my $FicLog="C:/LOG/20100910__log.txt" ;   $Research_Libelle_Tache = "Démarrage de la tâche /SAB/(AX_SAUVEGARDE_Delais_4ans)";   my @TableauLigne;   open (FIC1, "<$FicLog") || die "Ouverture impossible du fichier $FicLog: $!"; binmode FIC1, ":encoding(utf8)";   while ($Ligne = <FIC1> ) {   if (grep { $Ligne =~ m/$_/g } ($Research_Libelle_Tache)) {   @TableauLigne=split(/\|/,$Ligne); print "toto = $TableauLigne[19]\n"; } } close (FIC1);

---

merci pour votre aide

Bonjour,

Je pense que l'erreur vient des caractères spéciaux non protégés : les parenthèses et les /

Je pense qu'en mettant ceci cela devrait marcher :

Code:

---

1 2	my $Research_Libelle_Tache = "Démarrage de la tâche \\/SAB\\/\\(AX_SAUVEGARDE_Delais_4ans\\)";

---

Effectivement, cela vient bien des protections.

en fait où je suis embêté, c'est le fait que "/SAB(AX_SAUVEGARDE_Delais_ans)" est le résultat d'une variable ($toto)

comment puis je faire pour que si dans le résultat de ma variable toto, j'ai des () ou \, alors je mets des protections devant pour que dans la commande suivante, ma variable soit bien interprété.

Code:

---

1 2	my $Research_Libelle_Tache = "Démarrage de la tâche \\/SAB\\/\\(AX_SAUVEGARDE_Delais_4ans\\)";

---

Pour se faire tu peux utiliser la fonction de substitution :

Code:

---

1 2	$toto =~ s/([\(\)\/])/\\$1/g;

---

Ici, les parenthèses et le / seront précédés de \\. On capture le caractère "(" ")" ou "/" avec les parenthèses que l'on remplace par \\ suivi par ce que l'on a capturé ($1).
Bien sûr si tu as d'autres caractères à protéger il faudra les rajouter.

Pour protéger des caractères vis à vis de leur interprétation par le moteur de regexp, il existe la fonction quotemeta (perldoc -f quotemeta pour le manuel).