Cómo guardar una expresión regular de sustitución (buscar/reemplazar) en una variable, similar a qr //

Question

Estoy tratando de almacenar una expresión regular s///g como variable (sin mucha suerte).

Aquí hay un ejemplo que usa una coincidencia normal para mostrar lo que pretendo hacer.

my %file_structure = (
    header => qr/just another/, 
    table => qr/perl beginner/, 
) 

Ahora puedo llamar a esto usando $line =~ $file_structure{'header'} y volverá undef, o true si el patrón coincide.

Sin embargo, me gustaría decir $line =~ $file_structure{'foo'} donde $file_structure{'foo'} contiene algo así como s/beginner/hacker/g.

Answer 1

Debe almacenar las 2 partes por separado:

my %file_structure = (
    foo => {pat => qr/beginner/, repl => 'hacker'}, 
); 

my $line = 'just another perl beginner'; 
$line =~ s/$file_structure{foo}{pat}/$file_structure{foo}{repl}/; 
print "$line\n"; 

que sería mucho más seguro que recurrir a un mal "EXPR eval":

my %file_structure = (
    foo => 's/beginner/hacker/', 
); 

my $line = 'just another perl beginner'; 
eval "\$line =~ $file_structure{foo}"; 
print "$line\n"; 

Answer 2

A medida que han encontrado, no hay manera para almacenar directamente una expresión regular de sustitución como puede una coincidencia de expresiones regulares (con qr//). Puedes romper las partes y recombinarlas como muestra tadmc. Otra forma de hacer esto es para almacenar la sustitución de un subprograma:

my %file_structure = (
    foo_uses_default => sub {s/foo/bar/}, 
    foo_takes_arg => sub {$_[0] =~ s/foo/bar/}, 
    foo_does_either => sub {(@_ ? $_[0] : $_) =~ s/foo/bar/}, 
); 

$file_structure{foo_uses_default}() for ...; 
$file_structure{foo_uses_arg}($_) for ...;