Foro - Perl en Español

Hola,

En Perl abro un archivo para escritura.
Cuando encuentra la expresión regular buscada quiero borrar esa línea.
¿Cómo puedo hacerlo?

En foros y tutoriales la idea era copiar el archivo que abro a otro archivo y esa línea no copiarla y antes de terminar el programa Perl renombrar éste nuevo archivo.

¿Es la mejor forma de realizar esto? El archivo no tiene muchas líneas.

Saludos,
Paty

Una forma es esa, la otra es guardar todo el contenido del fichero en un array e ir recorriéndolo en busca de la expresión regular, una vez encontrada borras la línea en el array y vuelcas todo su contenido en el fichero origen sobreescribiéndolo.

Lo normal es eso, leer el fichero, quedarnos con lo que nos interesa, y escribir el resultado.

Esta operación es tan normal que se puede hacer en una sola línea de comandos.

Buscar y remplazar texto en un archivo de texto plano

Por ejemplo


Naturalmente, también se puede desde dentro de un programa, en caso de que queramos hacer algo más.

Muchas gracias, por las repuestas.

Saludos,
Paty

No hallo la forma de hacer funcionar esa línea que expusiste dentro de un script.

En vez de ejecutar desde terminal


Usar algo como


Ahora me surge otra duda: supongamos que en vez de borrar quiero agregar una línea conformada por dos variables, a un archivo, ¿cómo podría lograr esto? De ante mano ¡muchas gracias!

Lo que la línea hace es abrir el archivo, leerlo línea por línea, si la línea coincide con la expresión regular, realizar una operación (modificar la propia línea), y finalmente, guardar la línea en otro sitio. Al final, guardar todas las líneas en el propio archivo (que se abrirá otra vez, pero ahora con acceso en modo de escritura).

Para agregar líneas, de puede hacer de la misma manera, en el momento de hacer la operación.