Foro - Perl en Español

Publicado: **2016-12-08 06:34 @315**

Hola, muy buenas.

He de hacer un reemplazo masivo en unos archivo php, los cuales tienen en su código expresiones regulares, de manera que se me complica y mucho. Pondré un ejemplo básico para ver si se puede hacer lo que quiero, y de ahí intentar abarcar el problema.

Tengo una variable dentro del php que es la que quiero cambiar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

$regexp = '/<div>(.*?)<\/div>/';
 
Coloreado en 0.022 segundos,  usando GeSHi 1.0.8.4

y ha de quedar así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

$regexp = '/<div>
          <h1>(.*?)<\/h1>
<\/div>/';
 
Coloreado en 0.016 segundos,  usando GeSHi 1.0.8.4

Tiene que respetar el salto de lineas y caracteres en blanco.

Parto de este código, pero por mucho que hago pruebas no doy con la solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $viejo=<<EOF;
$regexp = '/<div>(.*?)<\/div>/';
EOF
 
my $nuevo=<<EOF;
$regexp = '/<div>
          <h1>(.*?)<\/h1>
<\/div>/';
EOF
 
my $resultado=~ s|$viejo|$nuevo|g;
 
print $resultado;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

He probado escapando caracteres, pero nunca consigo una salida. ¿Me ponen en el buen camino?

Salu2

Publicado: **2016-12-08 07:58 @374**

La clave está en "escapar" el significado de los caracteres en el patrón de búsqueda.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
my $php = q(<php
echo "Cosas horribles";
 
$regexp = '/<div>(.*?)<\/div>/';
 
>);
 
say $php;
 
my $viejo = q($regexp = '/<div>(.*?)<\/div>/';);
my $nuevo = q($regexp = '/<div>
    <h1>(.*?)<\/h1>
<\/div>/';);
 
$php =~ s/\Q$viejo/$nuevo/g;
 
say $php;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Verás que es lo mismo que tienes, pero le he añadido una orden de escapado (\Q) al patrón de búsqueda.

Por otra parte, la parte de reemplazo creo que quedaría más bonita con esta versión, sin caracteres de nueva línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $nuevo = q($regexp = '/<div>\n    <h1>(.*?)<\/h1>\n<\/div>/';);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Prueba, y nos cuentas.

Publicado: **2016-12-08 12:52 @578**

Fantástico, explorer, sabía que Perl era una buena solución

Me ha servido, es lo que necesitaba.

Muchas gracias, salu2.

Foro - Perl en Español

Reemplazar php con expresiones regulares dentro

Reemplazar php con expresiones regulares dentro

Re: Reemplazar php con expresiones regulares dentro

Re: Reemplazar php con expresiones regulares dentro