De l'aide pour vos programmes et scripts en Perl

Re: remplacement

Réponse à: Re: remplacement envoi de Fred le 18 Avril 2004 23:28:04:

Hue correction dans la solution :

#Proposer

$chaine = "{je,je.PRO+z1:ms}";
$chaine =~ s/\{(.*)\.([A-Z]+)\+(.*)\}/\{\2\}/;

print $chaine;

#remplacer

$chaine = "{je,je.PRO+z1:ms}";
$chaine =~ s/\{(.*)\.([A-Z]+)\+(.*)\}/\{$2\}/;

print $chaine;

//////////////////

Autre solution :

////////////////////

$chaine =~ s/\{(.*)\.(.*)\+(.*)\}/\{$2\}/;

avantage ! Tu n'es pas limiter au lettre majuscule !

a+