Foro - Perl en Español

Se puede hacer de muchas maneras. De hecho, Perl nació para resolver este tipo de cosas.

La forma más sencilla sería leer el fichero a memoria, repasar las líneas una a una, y cuando lleguemos a las interesantes, modificarlas. Finalmente, escribimos la nueva versión del fichero.

Otra forma más cómoda sería usando Tie::File (ejemplo).

Lo más normal es pensar en hacer un filtro: procesamos todos las líneas, y aquella que concuerde con nuestro patrón, queda modificada. Eso lo podemos hacer desde la misma línea de órdenes, con perl -p -i -e (ejemplo) (ejemplo).

Sería algo así (no probado):

!Ah! ¿pero había paréntesis?

Muéstranos tu código y te decimos dónde está el fallo.

Si se trata de localizar paréntesis, recuerda que en un patrón de expresiones regulares debes "escaparlos" con un '\' delante.

Si solo quieres quedarte con la parte que está entre comillas dobles, lo tienes aún más sencillo:

s/^.*"(.+?)".*$/$1/;

perl -E '$x=qq("JuanSantillan-fd" 2.2.8 (26Jan08) Linux,Cross-compile,Win32); $x =~ s/^.*"(.+?)".*$/$1/; say $x'

Tienes que decirles que deben elegir:

O usan un programa de correo serio, como el Thunderbird,
o configuran su programa de correo para que la fuente de letras por defecto sea monoespaciada.