Discussion :

[casp13]

Bonjour,
j'ai fait un programme dans lequel je lis deux fichier et je compare mot à mot un fichier et l'autre. Il est possible que dans un fichier j'aie toto et dans l'autre toto] ce qui pour mon utilisation sera considéré comme le même mot, par conséquent j'ai utilisé une regex pour comparer :

if ($motf1 =~ /$motf2/)

ça fonctionne très bien dans les cas "classique" que j'avais prévu mais quand le mots correspond à un signe réservé des regex tel que ? le programme crie et ça ne fonctionne plus je suis d'ailleurs étonnée que le problème ne se soit pas également posé dans le cas de toto], j'imagine que là déjà il fait une interprétation mais que dans ce cas elle me convient...

Est-ce que quelqu'un aurait une idée de comment je peux résoudre ce problème ?

Merci
casp

[Jasmine80]

Code :

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

$motif1 = quotemeta($motif1);

quotemeta => Returns the value of EXPR with all non-"word" characters backslashed. (That is, all characters not matching /[A-Za-z_0-9]/ will be preceded by a backslash in the returned string, regardless of any locale settings.) This is the internal function implementing the \Q escape in double-quoted strings.

Mais quotemeta risque de placer trop de backslash, je pense par exemple aux caractères pourcent, espace et virgule.

Sinon quelque chose comme cela

Code :

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

1
2
3
4
$motif1 =~ s'\?'\\?'g;
$motif1 =~ s'\.'\\.'g;
$motif1 =~ s'\/'\\/'g;
...

Qui rajoute des backslash devant les caractères utilisés dans les expressions régulières, mais cela va être lourd.


Si il existe une autre façon, je ne la connaîs pas.


Et pourquoi ne pas utiliser un simple eq?

Code :

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

if ($motif1 eq $motif2)

[Jedai]

Mais quotemeta risque de placer trop de backslash, je pense par exemple aux caractères pourcent, espace et virgule.

Ne t'inquiète pas, quotemeta() ne place pas trop de backslash, il est prévu précisément pour l'utilisation de litéraux dans des regex comme ici.

--
Jedaï

[Jasmine80]

Ne t'inquiète pas, quotemeta() ne place pas trop de backslash, il est prévu précisément pour l'utilisation de litéraux dans des regex comme ici.

--
Jedaï

C'est toujours bon à savoir, je ne l'ai jamais utilisé que pour insérer des dates en DB.


Jasmine,

[casp13]

Merci beaucoup pour vos réponses mais malheureusement je ne parviens toujours pas à faire ce que je voulais. Peut-être que je me suis mal exprimée au vu de la dernière solution proposée.
Donc ce que je voudrai c'est que si :
$mot1 = toto
et
$mot2 = toto]

le if($mot1 =~/$mot2/) me rende vrai

tout comme dans le cas ou $mot1=toto et $mot2=toto, tant que $mot1 est contenu dans $mot2 je voudrai que le if retourne vrai et qu'il ne retourne faux par exemple que si $mot1 = toto et $mot2 = ]

J'ai essayé avec quotemeta mais dans ce cas si j'ai toto et toto] le if est faux...ce qui ne correspond pas à ce que je veux.

Je vous ai inspiré encore un peu ?

Merci
casp

[Jasmine80]

tant que $mot1 est contenu dans $mot2 je voudrai que le if retourne vrai et qu'il ne retourne faux par exemple que si $mot1 = toto et $mot2 = ]

Si c'est $mot1 qui doit être contenu dans $mot2, tu dois inverser tes variables dans le if. On recherche le motif contenu entre // (ici $mot1) dans la variable placée avant le signe =~ (ici $mot2).

Code :

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

if($mot2 =~/$mot1/)