Discussion :

[misterfed]

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 :

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

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

je ne trouve pas que cela est professionnel

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

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

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) {
  # ...
}

[misterfed]

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 :

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

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é
je teste et je poste le code

[Philou67430]

Il te suffit alors de remplacer \s par _

[misterfed]

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

[Lolo78]

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