Comme on dit en Perl, "il y a plus d'une façon de le faire", voici la mienne.
Certainement pas la plus efficace, mais elle a le mérite de fonctionner ...
my $chaine = 'hello "world co" "brol and " youpi';
foreach my $avant ( $chaine =~ m/"(.*?\s+.*?)"/g )
{
my $apres = $avant;
$apres =~ s/\s/%20/g;
$chaine =~ s/$avant/$apres/;
}
[^] # Re: je dirais...
Posté par LeSeb (site web personnel) . En réponse au message Expressions regulière. Évalué à 1.
Certainement pas la plus efficace, mais elle a le mérite de fonctionner ...
my $chaine = 'hello "world co" "brol and " youpi';
foreach my $avant ( $chaine =~ m/"(.*?\s+.*?)"/g )
{
my $apres = $avant;
$apres =~ s/\s/%20/g;
$chaine =~ s/$avant/$apres/;
}