[ExpReg] Simple expression régulière

Bonjour,

J'ai eu une formation perl et le Monsieur me dit que le perl c'est super intuitif.
Donc j'essaie de faire un programme simple qui permet de substituer un chaîne de caractère par une autre dans un chaîne plus longue.

Genre dans : "12345", j'aimerais remplacer "123" (trois premiers caractères) par XXX.
Mais pas utilisant "123" mais en utilisant le caractère \d.

J'utilise :

Code:

---

/^(\d{3})(.*)$/XXX$1/

---

Merci d'avance pour votre aide,
Rithy666.

Code:

---

s/^\d{3}(.*)$/XXX$1/

---

Encore plus simple :

Code:

---

s/^\d{3}/XXX/

---

Merci messieurs.

Je ne sais pas si j'ai le droit de continuer à poser des questions liées.
Je me lance, vous me direz.

Code:

---

1 2 3

$cible = "12345"; $cible =~ s/\d{3}/XXX/g; print ("Resultat : ",$cible, "\n");

---

Est-il de faire la même opération et de stocker le résultat dans une variable en conservant ainsi la chaîne d'origine ?
Sans faire :

Code:

---

1 2	$cible = "12345"; $sauvegarde = $cible;

---

Code:

---

1 2 3

my $cible = "12345"; my ($resultat) = $cible =~ s/^(\d{3})/; print "Resultat : $resultat\n";

---

Une petite erreur s'est glissée dans ton code Djibril ;)

Trop de suspens....:cry:
Déjà dans le code de djibril, on ne trouve plus la chaîne XXX.
Mais même ainsi, ça ne fonctionne toujours pas :

Code:

---

1 2 3

my $cible = "12345"; my ($resultat) = $cible =~ s/\d{3}/XXX/g; print "Resultat : $resultat\n";

---

J'obtiens "1". Résultat booléen d'un test mais je ne comprends pas lequel.

Merci pour votre aide en tout cas.

Si tu veux que le texte initial soit inchangé, il ne faut justement pas que XXX soit présent (ni l'opérateur de substitution de regexp) :

Code:

---

1 2 3

my $cible = "12345"; my ($resultat) = $cible =~ m/^(\d{3})/; print "Resultat : $resultat\n";

---

Effectivement, si on souhaite isoler les trois premiers caractères, ça marche très bien (encore une chose d'apprise).

Mais Je me suis certainement mal exprimé :(
Ce que je souhaitais c'était avoir une variable "cible" contenant "12345" et au final avoir une variable "resultat" contenant "XXX45" et le contenu de la variable "cible" qui ne varie pas.

En gros, cible est la chaine de base, j'applique une substitution et je renvoie le tout dans résultat.
Un peu le principe de sed et du pipe, pseudo code :

Code:

---

resultat=`echo $chaine | sed expreg`

---

Dans ce cas :

Code:

---

1 2 3 4

my $cible = "12345"; (my $resultat = $cible) =~ s/^(\d{3})/XXX/; print "Resultat : $resultat\nCible : $cible\n";

---

Citation:

---

Envoyé par Philou67430

Dans ce cas :

Code:

---

1 2 3 4

my $cible = "12345"; (my $resultat = $cible) =~ s/^(\d{3})/XXX/; print "Resultat : $resultat\nCible : $cible\n";

---

---

Magnifique !

Merci.

Citation:

---

Envoyé par Philou67430

Une petite erreur s'est glissée dans ton code Djibril ;)

---

oup's

Code:

---

1 2 3

my $cible = "12345"; my ($resultat) = $cible =~ m{^(\d{3})}; print "Resultat : $resultat\n";

---

Citation:

---

Envoyé par djibril

ou

Code:

---

1 2 3

my $cible = "12345"; my ($resultat) = $cible =~ s{^(\d{3})}{XXX}; print "Resultat : $resultat\nCible : $cible\n";

---

---

:nono:

$resultat ne va pas contenir le résultat de la substitution, mais le nombre de substitution réalisées, soit 1.

c'est vrai, je n'avais plus les yeux en face des trous hier.