Foro - Perl en Español

Hola a todos...

Bueno, entre unas y otras cosas vuelvo aquí por una duda sencilla. ¿Cómo puedo escribir al principio de cada línea de un archivo suponiendo que éste ya esté escrito, algo determinado?

Pensé en usar el while() más el descriptor de archivo y luego usar la función seek() para situar el puntero siempre al principio de cada línea pero he pensado que debe haber algo más sencillo que realizar eso.

¡Gracias!

Si el archivo es de texto, no puedes usar seek(), porque en cuanto modificas una línea estás cambiando la posición de inicio del resto de las líneas. Otra cosa es que el archivo fuera de registros de igual tamaño.

En el primer caso, puedes resolverlo según lo que se indica en una de las preguntas de perlfaq5: How do I change, delete, or insert a line in a file, or append to the beginning of a file?.

Puedes usar el método de ir leyendo por líneas desde el archivo original e ir grabando las modificaciones en un archivo nuevo, y al terminar, borrar el viejo y renombrar el nuevo.

Si el archivo no es muy grande, puedes leerlo completamente en memoria, hacer las modificaciones, y grabar el resultado al propio archivo.

Si las modificaciones son pequeñas, incluso hasta se puede resolver en una línea de comando, usando el modo de edición en linea. Ejemplo: poner números a las líneas de un archivo.

perl -p -i -e '$_ = sprintf "%03d %s", $., $_' archivo.txt