bon ben la solution est pas magique, mais elle existe.
par contre elle marche seulement à moitié
$expr = qr/toto/; (avec d'envtuels modifiers genre i)
$line =~ $expr
ca ca marche par contre pour du s/// faut faire ca:
$expr = qr/toto/;
$line =~ s/$expr/blabla/g;
pas le choix...
l'interet du qr// c'est essentielement de compiler la regexp (un peu comme le modifier o, mais en plus souple) pour gagner en vitesse (et meme avec le s/// on gagne tout de meme en vitesse en utilisant une regexp compilée dans la partie gauche)
uen possibilité pour automatiser ca c'est d'utiliser une hash:
my $replace = {
toto => "blabla",
epita => "ecole de bourge",
epitech => "ecole de merde"
};
my $expr = join('|', keys %$replace);
$expr = qr/($expr)/;
$line =~ s/$expr/$replace->{$1}/ge;