Perl

[PERL] Problème regexp \1

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Problème regexp \1

maxou3513

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 :

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

Message cité 1 fois

Publicité

web_olivier

R1 Powaaaaa

maxou3513 a écrit :

Code :

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

:hello:

Tu demandes de remplacer $a par $b, mais $a est tout ton numéro !
Essaie :

Code :

my $a = '^06';
my $b = '+336';
my $tel = '0635678396';
$tel =~ s/$a/$b/;
print "$tel\n";

Message édité par web_olivier le 10-06-2015 à 15:41:34

maxou3513

Tu contourne juste le problème imaginons ce code ci-dessous :

Code :

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

Je voudrais que $tel retourne +33635678396gmail.fr et pourtant ça ne retourne pas ceci, je voudais savoir comment fonctionne le \1, je ne comprend pas pourquoi il ne marche pas

web_olivier

R1 Powaaaaa

Tu veux aussi supprimer le @ ?

Message édité par web_olivier le 10-06-2015 à 16:14:53

maxou3513

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.

rat de combat

attention rongeur méchant!

J'ai pas pigé le truc mais pour ceci

Citation :

Mais le script n'arrive pas à comprendre le \1.

tu ne chercherais pas plutôt $1?

exemple pour disons rajouter des apostrophes autour de certains mots (juste pour montrer l'utilisation du $1):

s/(mot1|mot2|mot3)/"$1"/g;

(edit grammaire...)

Message édité par rat de combat le 10-06-2015 à 18:11:41

gilou

Modérateur
Modzilla

Code :

my $a = '^06(\d{8})';
my $b = '"+336".$1';
my $tel = '0635678396';
$tel =~ s/$a/$b/ee;
print "$tel\n";

l'emploi de ee a la fin fait toute la différence:
le premier e évalue $b en "+336".$1 et le second évalue "+336".$1

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[PERL] Problème regexp \1

Sujets relatifs
[PERL] regex !!!	Problème d'affichage de caractère
[Hibernate JPA] Problème relation entre 2 objets	Problème avec $this avec la POO
[SQL/PLSQL] problème sur requête	Problème fichier LUA
[C] probleme pour un reseau de petri	Problème de Rebond sur un filet
[Arduino] Problème réception GPS	Probleme exercice de Langage machine
Plus de sujets relatifs à : [PERL] Problème regexp \1

Page générée en 0.044 secondes