Problème regexp \1

Bonjour,

J'ai un problème avec mon code ci-dessous, je voudrais que $tel me renvoie +33635678396 mais ce programme me renvoie +336\1, je ne comprend pas.
Merci de m'aider, ça fait un moment que je bloque, je ne trouve pas la solution.

Code:

---

1 2 3 4 5 6 7

my $a = '^06([0-9]{8}).*$'; my $b = '+336\1'; my $tel = '0635678396';   $tel =~ s/$a/$b/;   print "$tel\n";

---

Ici, tu essayes de modifier "le numéro complet" par le "préfixe internationale", alors que tu voudrais modifier le "préfixe court" par le "préfixe internationale".

Pour obtenir ce que tu souhaites, écris plutôt :

Code:

---

$tel =~ s/$a/$b$1/;

---

(attention cependant, tout ce qui se trouve entre la fin du numéro et la fin de la ligne sera supprimé).

Ce que je voulais savoir, c'est comprendre pourquoi le \1 ne fait pas son role de remplacer ce qu'il y a dans la parenthèse, car j'ai des centaines de regexps à manipuler et on imagine que la deuxième soit de la forme comme le code ci-dessous, ça ne me renvoie pas encore ce que je veux.

Code:

---

1 2 3 4 5

my $a = '^06([0-9]{8})@(.*)$'; my $b = '+336\1\2'; my $tel = '0635678396@gmail.fr'; $tel =~ s/$a/$b/; print "$tel\n";

---

Ooops... pardonc, je n'avais pas bien lu.

C'est parce que la partie de substitution est une variable qui contient \1 et que cette variable n'est pas interpolée comme une expression de substitution.

Si tu écris ceci ainsi :

Code:

---

1 2 3 4 5 6 7

my $a = '^06([0-9]{8}).*$'; my $b = '+336'; my $tel = '0635678396';   $tel =~ s/$a/$b\1/;   print "$tel\n";

---

ça devrait marcher.

D'ailleurs, un conseil pour $a :

Code:

---

my $a = qr/^06([0-9]{8}).*$/;

---

Oui je sais qu'en enlevant le \1 et en le replaçant dans le s///, cela va fonctionner mais mon problème est plus large.
En gros j'avais un fichier avec des centaines d'expressions régulière de ce type : /^06([0-9]{8}).*$/+336\1/, j'ai donc coupé en deux parties a et b l'expression comme le première exemple que j'ai donné. Il faut que quand je rentre un numéro il le transforme avec la bonne regexp parmi la centaine. Mais le script n'arrive pas à comprendre le \1. Je voulais savoir comment faire pour traiter tous les cas si jamais la regexp suivante était du format de mon deuxième exemple.

Une idée qui vaut ce qu'elle vaut pour évaluer "à la volée" le contenu de la chaine de substitution :

Code:

---

1 2 3 4 5

my $a = '^06([0-9]{8})@(.*)$'; my $b = '+336%s%s'; my $tel = '0635678396@gmail.fr'; $tel =~ s/$a/sprintf($b,$1,$2)/e; print "$tel\n";

---