regexpr

kurtz le pirate wrote in message
<kurtzlepirate-AEF3E8.19015401042007@news-4.proxad.net>:

j'ai testé que $x =~ s/jpg|tif/jpeg|tiff/ ne fonctionne pas, normal.

pas d'astuces pour faire ça d'un seul coup ?

my %r = (
jpg => "jpeg",
tif => "tiff",
);

s/(jpg|tif)/$r{$1}/;

On peut même écrire

my $r = join("|", map { quotemeta } keys %r);
$r = qr{$r};

Et utiliser $r comme expression de remplacement.