interprétation des regex

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

Code:

---

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

---

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:

---

if ($motif1 eq $motif2)

---

Citation:

---

Envoyé par Jasmine80

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ï

Citation:

---

Envoyé par Jedai

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,

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 ? :D

Merci
casp

Citation:

---

Envoyé par casp13

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:

---

if($mot2 =~/$mot1/)

---

c'est vrai :roll: merci !

Ca va? le problème est résolu maintenant?

Oui merci je crois que c'est bon, j'ai en partie essayé de contourner le problème et pour le reste j'ai utilisé ta solution avec quotemeta et ça semble convenir. Mais étant donné que le programme ne fonctionne pas encore parfaitement il est encore possible que je tombe sur des cas imprévu... mais j'espère que non !
Merci pour ton aide en tout cas :king: