Discussion :

[loula427]

Voila j'ai un petit soucis avec une expression reguliere que je voudrais mettre en place... alors j'ai la chaine de caractere suivante :

abc ==> def <== jkl ==> mno <==

Dans cette chaine je voudrais remplacer tous les "==>" par "<==" et tous les "<==" par "==>". Ce qui donnerais :

abc <== def ==> jkl <== mno ==>

mais je n'y arrive pas . Car je ne peux pas d'abord remplacer "==>" puis remplacer "<==".

Des idees ?

[djibril]

Code :

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

1
2
$chaine =~ s{<==}{==>}g;
$chaine =~ s{==>}{<==}g;

[loula427]

Hmmm nop c est ce que je pensais faire au depart mais ca fonctionne pas car ca donne ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PERL> $a = "abc ==> def <== jkl ==> mno <==" 
 
PERL> $a =~ s{<==}{==>}g
 
PERL> x $a
$VAR1 = 'abc ==> def ==> jkl ==> mno ==>';
 
PERL> $a =~ s{==>}{<==}g
 
PERL> x $a
$VAR1 = 'abc <== def <== jkl <== mno <==';

[Philou67430]

Une solution :

Code :

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

$a =~ s{(==>|<==)}{$1 =~ /^==/ ? "<==" : "==>"}eg;

[loula427]

Merci
Je n'y avait pas pense, tres astucieux.

[philouelgeek]

Salut,

Une solution :

Code :

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

$a =~ s{(==>|<==)}{$1 =~ /^==/ ? "<==" : "==>"}eg;

Tu pourrais expliciter un peu l'expression

Apparemment dans une premier temps tu cherches les ==> ou <==
puis tu ....

J'ai un peu de mal à saisir le fonctionnement en fait


@++

[Philou67430]

Le modificateur /e permet de considérer la chaine de remplacement comme une expression perl. Cette expression est alors évaluée :

Code :

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

$1 =~ /^==/ ? "<==" : "==>"

Le résultat est donc que si le motif reconnu commence par ==, on le remplace par <==, sinon par ==>

[djibril]

Hmmm nop c est ce que je pensais faire au depart mais ca fonctionne pas car ca donne ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PERL> $a = "abc ==> def <== jkl ==> mno <==" 
 
PERL> $a =~ s{<==}{==>}g
 
PERL> x $a
$VAR1 = 'abc ==> def ==> jkl ==> mno ==>';
 
PERL> $a =~ s{==>}{<==}g
 
PERL> x $a
$VAR1 = 'abc <== def <== jkl <== mno <==';

ça m'apprendra à ne pas tester

[loula427]

C'etait mon idee initiale en fait...
Mais bon quelques petits problemes de concept. La solution de philou me convient a merveille