Comment utiliser une variable Perl dans une expression régulière?

Question

J'essaie de faire une recherche et de remplacer par des variables. Dans ce cas, les variables que j'ai tirées d'un match précédent. Voici mon code:

$fileContentToAlter =~ s/$2/$1/g; 

Maintenant, je me rends compte dans cet état, il est lu à tort comme $ a sa propre signification à l'intérieur d'une expression rationnelle. J'ai fait quelques recherches sur le web et j'ai lu que les doubles quotes pouvaient régler le problème car cela interpolait mais cela ne fonctionnait pas pour moi. Je ne vais pas mentir, c'est un travail à faire, donc je ne m'attends pas à une réponse complète. Juste un coup de pouce dans la bonne direction.

Answer 1

Évitez '$ 1' et '$ 2' car ce sont des métacaractères regex.

use strict; 
use warnings; 

my $val1 = "abc"; 
my $val2 = "def"; 
while (<>) 
{ 
    s/$val1/$val2/g; 
    print; 
}