Discussion :

[vince2005]

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 :

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

[Beniou]

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 :

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

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

[vince2005]

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 :

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

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

[Beniou]

Pour se faire tu peux utiliser la fonction de substitution :

Code :

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

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.

[Philou67430]

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