différence entre 2 string presque identique

Bonjour

je suis entrain d'ecrire une fonction qui fais la chose suivante:

$chaineA = AB_CD
$chaineB = ABCD

la fonction dois dire que chaineA est la meme que chaineB

en regexp

Code:

---

if($chainB =~ /$chaineA|AB_CD)

---

je ne trouve pas que cela est professionnel

Ton expression régulière ne fait pas ce que tu dis.
D'ailleurs, on ne sait pas très bien ce que tu veux faire : est-ce que tu veux considérer que les espaces sont "non significatifs" dans la comparaison de chaine ?
Si c'est le cas, il convient alors de copier les chaines "sans les espaces" et ensuite, de les comparer avec l'opérateur eq :

Code:

---

1 2 3 4 5

my $chaineA_cmp = $chaineA =~ s/\s+//g; my $chaineB_cmp = $chaineB =~ s/\s+//g; if ($chaineA_cmp eq $chaineB_cmp) { # ... }

---

Citation:

---

Envoyé par Philou67430

Ton expression régulière ne fait pas ce que tu dis.
D'ailleurs, on ne sait pas très bien ce que tu veux faire : est-ce que tu veux considérer que les espaces sont "non significatifs" dans la comparaison de chaine ?
Si c'est le cas, il convient alors de copier les chaines "sans les espaces" et ensuite, de les comparer avec l'opérateur eq :

Code:

---

1 2 3 4 5

my $chaineA_cmp = $chaineA =~ s/\s+//g; my $chaineB_cmp = $chaineB =~ s/\s+//g; if ($chaineA_cmp eq $chaineB_cmp) { # ... }

---

---

ce n'est pas un espace c'est un "_" mais ton idée est bonne je n'ai pas pensé :ccool:
je teste et je poste le code

Il te suffit alors de remplacer \s par _ :)

Citation:

---

Envoyé par Philou67430

Il te suffit alors de remplacer \s par _ :)

---

Oui c'est ce que j'ai fais et je trouve la maniere de faire est plus professionnel

:ccool:

La solution de Philou est plus professionnelle et, surtout, elle marche. Ton expression régulière ne faisait pas cela.

En fait, ma solution est erronée...
J'ai oublié de reporter depuis mon uniligne de test le modificateur /r dans les expressions de substitution :

Code:

---

1 2 3 4 5 6

my $chaineA_cmp = $chaineA =~ s/\s+//rg; my $chaineB_cmp = $chaineB =~ s/\s+//rg; if ($chaineA_cmp eq $chaineB_cmp) { # ... }

---

Ce modificateur permet d'effectuer la substitution sur une copie de la chaine d'origine, et donc, de conserver celle-ci intacte.
Désolé pour le contretemps.

A titre indicatif, la ligne suivante

Code:

---

my $chaineA_cmp = $chaineA =~ s/\s+//rg;

---

est équivalente à :

Code:

---

(my $chaineA_cmp = $chaineA) =~ s/\s+//g;

---