Discussion :

[Rithy666]

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 :

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

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

Merci d'avance pour votre aide,
Rithy666.

[djibril]

Code :

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

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

[Philou67430]

Encore plus simple :

Code :

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

s/^\d{3}/XXX/

[Rithy666]

Merci messieurs.

[Rithy666]

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

Code :

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

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 :

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

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

[djibril]

Code :

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

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