Perl: pasar la búsqueda de expresiones regulares y reemplazar utilizando las variables

Question

Tengo un script de Perl que lee la búsqueda de expresiones regulares y reemplaza los valores de un archivo INI.

Esto funciona bien hasta que intento usar las variables de captura ($ 1 o \ 1). Estos se reemplazan literalmente con $ 1 o \ 1.

¿Alguna idea de cómo puedo hacer que funcione esta funcionalidad de captura pasando bits de expresiones regulares a través de variables? Ejemplo de código (no usar un archivo ini) ...

$test = "word1 word2 servername summary message"; 

$search = q((\S+)\s+(summary message)); 
$replace = q(GENERIC $4); 

$test =~ s/$search/$replace/; 
print $test; 

Esto se traduce en ...

word1 word2 GENERIC $4 

NO

word1 word2 GENERIC summary message 

gracias

Answer 1

Uso doble evaluación:

$search = q((\S+)\s+(summary message)); 
$replace = '"GENERIC $1"'; 

$test =~ s/$search/$replace/ee; 

Tenga en cuenta las comillas dobles en $replace y ee al final de s///.

Answer 2

Use \ 4, no $ 4.

$ 4 no tiene un significado especial en q(), ni lo reconoce el motor de RE.

\ 4 tiene un significado especial para el motor de RE.

Answer 3

intentar someter la expresión regular-sub a eval, se advirtió que la sustitución está viniendo de archivo externo

eval "$test =~ s/$search/$replace/"; 

Answer 4

Otra solución interesante sería utilizar look-aheads (?=PATTERN)

Su ejemplo sería entonces sólo reemplazar lo necesita ser reemplazado:

$test = "word1 word2 servername summary message"; 

# repl. only ↓THIS↓ 
$search = qr/\S+\s+(?=summary message)/; 
$replace = q(GENERIC); 

$test =~ s/$search/$replace/; 
print $test; 

Answer 5

Si te gusta la solución de Amon, supongo que el "genérico $ 1" no es de configuración (especia lly la parte '$ 1' en ella). En ese caso, creo que hay una solución aún más simple, sin el uso de look-aheads:

$test = "word1 word2 servername summary message"; 
$search = qr/\S+\s+(summary message)/; 
$replace = 'GENERIC'; 
$test =~ s/$search/$replace $1/; 

Aunque no hay nada realmente mal por supuesto (= PATRÓN?).