Foro - Perl en Español

por **J0an_Perl** » 2010-02-17 03:48 @200

Hola, comunidad, éste es un trozo de código muy simplificado.
Necesito reemplazar un texto por otro pero con expresiones regulares
que cogeré de un fichero.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# línea a traducir
$line='var varchar2(10)';

# respuesta esperada: var number(10)

# reemplazo con variable, no OK
$find='varchar2\((.+)\)';
$replace='number($1)';

$line=~s/$find/$replace/;
print$line."\n";
# RESPUESTA ERR: var number($1)


# reemplazo sin variable, es OK
$line2='var varchar2(10)';
$line2=~s/varchar2\((.+)\)/number($1)/;
print$line2."\n";
# RESPUESTA OK: var number(10)Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

P:\DB\WORK\perl>perl test.pl

var number($1)

var number(10)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Esto es lo que ocurre:
* En la expresión regular se ha añadido la opción /e, para indicar que la segunda parte de la sustitución debe ser ejecutada, y no una sustitución literal

* La ejecución consiste en la evaluación (eval()) de una cadena de caracteres, que está entrecomillada con dobles comillas, dos veces, una dentro de otra.

* El resultado es, primero, tener una cadena de caracteres que es exactamente "number($1)". Y eso es lo que le pasamos al eval(), que realiza la segunda interpolación gracias al entrecomillado.

Desde luego, quedaría más claro, haciéndolo en más líneas...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$line='var varchar2(10)';

my$find=qr/varchar2\((.+)\)/;# expresión regular
my$replace='number($1)';# cadena de sustitución

$line=~$find;# buscamos
$line=eval(qq(qq($replace)));# evaluamos

print"[$line]\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Así no hay sustitución, si no que solo realizamos la búsqueda de patrones, para luego ser evaluadas en la cadena $replace.

Actualización: Otra forma de hacerlo es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$line=~s/$find/qq(qq($replace))/ee;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La doble ejecución /e equivale al efecto del eval().

por **J0an_Perl** » 2010-02-17 07:00 @333

Muchas gracias, explorer,

La verdad es que es mi primer perl, pero de expresiones regulares y programación sí entiendo.

Muchas gracias por tu rápida respuesta y además, muy clara.

Un saludo,
JOAN

Foro - Perl en Español

La sustitución con variables y parámetros no me funciona

La sustitución con variables y parámetros no me funciona

Publicidad

Re: La sustitución con variables y parámetros no me funciona

Re: La sustitución con variables y parámetros no me funciona

¿Quién está conectado?