Discussion :

[djblind]

Bonjour,

Je cherche à comparer 2 variables contenant une chaine de caractères.

Code :

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

1
2
3
4
5
6
my $v1 ="je mange une bonne pomme";
my $v2 = "je mange une bonne fraise";
(my $c = "$v1\n$v2" ) =~ /^(.*)(\b.*)\n\1(.*)/;
print "texte commun\n".$1."\n";
print "texte diférant1\n".$2."\n";
print "texte diférant2\n".$3."\n";

Dans cet exemple tout fonctionne bien, ça retourne bien que "pomme" est différent de "fraise" et que le texte commun est "je mange une bonne".

Mais voila ce que je voudrais obtenir également.

Code :

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

1
2
3
4
5
6
my $v1 ="je mange une bonne pomme";
my $v2 = "mange une bonne fraise";
(my $c = "$v1\n$v2" ) =~ /^(.*)(\b.*)\n\1(.*)/;
print "texte commun\n".$1."\n";
print "texte diférant1\n".$2."\n";
print "texte diférant2\n".$3."\n";

Mais là ça fonctionne pas comme je le voudrais.

Je voudrais qu'il me retourne le texte commun "mange une bonne" et qu'il retourne seulement le texte différent se trouvant après le texte commun.
donc

pomme
fraise

S'il y a un génie des regexp qui pourrait m'aider, ça serait super sympa!

merci à vous.

[CosmoKnacki]

Le problème c'est que ton premier groupe de capture est ancré au début de la chaîne ^(.*) donc tu ne peux pas espérer qu'il capture quoi que ce soit qui ne commence pas au début de la chaîne. D'autre part, le quantificateur * l'autorise à être vide, ce qui peut aussi être un problème suivant ce que tu souhaites faire.

Pour ton exemple de chaîne tu peux déjà changer ta pattern comme ceci:

Code :

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

/^.*?\b(\w.*)(\b.*)\n\1(.*)/

ou en supprimant carrément l'ancrage:

Code :

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

/\b(\w.*)(\b.*)\n\1(.*)/

Aprés, pour allez plus avant, il faudrait que tu détailles mieux:

• Les mots peuvent-ils être coupés par les groupes de capture et la référence au groupe 1?
• si les deux lignes ont plusieurs parties en commun lesquelles choisir et selon quel critère? La plus à gauche, la plus longue, autre et sur quelle ligne ?
• La partie commune peut-elle être vide?
• La partie commune doit-elle forcément débuter au début de la deuxième ligne?

NB: Je n'ai pas voulu compliquer la pattern outre mesure pour améliorer sa performance, mais dans son état actuel, ce n'est pas le genre de pattern à appliquer sur une longue chaîne.

[djblind]

Bonjour,

Merci de la réponse.

J'ai pas encore trouvé la solution à ce que je recherche à faire.

Voici mon exemple concret.

Code :

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

1
2
my $v1 = "un garde de la porte";
my $v2 = "de la p p";

On peut remarquer que le text commun est :

"de la p"

Je voudrai donc pouvoir récupérer le text commun,
ainsi que le text différent après le text commun.

soit:

text commun :

"de la p"

text dif:

" p"

merci encore de votre aide

[CosmoKnacki]

Donc les mots peuvent être coupés. Restent les trois autres questions que je t'ai posées, merci d'y répondre car sinon je ne peux rien faire pour toi.

[djblind]

Bonjour,

alors pour les 3 questions restantes.

Si les 2 lignes on plusieurs parties en commun.
On prend juste la première partie,
et on renvoie tout le texte se trouvant à droite de cette première partie commune.

Pour la deuxième questions je ne suis pas sur de comprendre,
mais il peux avoir effectivement aucune partie commune, dans ce cas la elle sera vide.

Troisième question :

Code :

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

1
2
my $v1 = "un garde de la porte";
my $v2 = "de la p p";

Effectivement la partie commune commencera forcément toujours par:
"de la p p" dans cette exemple.

Les variables $v1 et $v2 sont dans une boucle, et le text change à chaque fois.

Mais je dois toujours chercher si la chaine de $v2 se trouve quelque part dans $v1,
puis renvoyer le texte à droite du premier texte commun trouvé.

merci de votre aide

[djblind]

J'ai oublié pour la troisième question,


Mais je dois toujours chercher si la chaine de $v2 se trouve quelque part dans $v1,
puis renvoyer le texte à droite de $v2 du premier texte commun trouvé.
Dans mon exemple:

Code :

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

1
2
my $v1 = "un garde de la porte";
my $v2 = "de la p p";

Le texte commun :

"de la p"

le texte différent à droite du texte commun de $v2 :

" p"