Foro - Perl en Español

¡Hola a todos!

Veréis, soy una negada para la informática y estoy aprendiendo a programar por primera vez.. Y tengo un problemilla para cambiar parte del contenido de un archivo..

A ver si alguno me podéis echar un cable... Es un archivo que lo abro y con la función s/// cambio varios valores del archivo pero no sé cómo cambiarlo en el archivo en sí... No sé si me explico... ¡Ayuda por favorrrrrrr!!

¡¡Gracias a todos!!

Bienvenida a los foros de Perl en Español, Merisue.

Se puede hacer de varias maneras. Si, por ejemplo, te lees todo el fichero en memoria, puedes luego abrir el mismo fichero pero en escritura y guardarlo de esta manera con los cambios hechos.

Si, en cambio, vas leyendo línea a línea, deberás antes abrir otro fichero e ir guardando en él las líneas, tanto las no cambiadas como las que sí. Al final, borrar el fichero de partida y al nuevo, darle de nombre el del viejo.

Como esta operación es muy común, Perl ofrece una forma muy cómoda de hacerla, en una sola línea, pero usando los pies.

¡Muchísimas gracias, explorer, por la ayuda y por tu rápida respuesta! Le he echado un vistazo a los pies pero me vendría mejor hacerlo de alguna de las otras dos maneras ya que lo que quiero es cambiarlo sucesivas veces con un bucle por ejemplo... el problema es que he intentado hacer lo que me sugieres y no lo consigo. me temo que no sé abrirlo en escritura para guardar los cambios.. Ya imagino que es algo básico pero no me funciona.. a ver si me podéis dar otro empujoncito... ¡¡Muchísimas gracias!!

Muéstranos el código que te falla, a ver si así descubrimos dónde está el error.

Para abrir un fichero en escritura es lo mismo que en lectura, pero cambiando el '<' por un '>'.

Muchas gracias ¡lo primero de todo! Bueno, aquí os pongo mi creación frankesnteniana. Me temo que es muy chapucera y ¡debe tener multitud de errores!

Lo he reescrito, pero no lo he probado:

Hay dos cambios:
* Había un error en la expresión regular. Los paréntesis estaban mal puestos. La he cambiado por lo que me parece que estás intentando cambiar: aquellas líneas que tienen un '=' seguido de posiblemente varios espacios y seguido de una cifra, cambiarla por la misma línea pero poniendo en lugar de la cifra el valor de $i.
* He usado la variable @params para almacenar todas las líneas leídas del fichero. Luego, se usará para escribir el resultado.

Esto, de forma un poco más moderna, se hace con un sistema de plantillas, que reducen el anterior código a la mitad.

Pregunta curiosa... ¿Cuántas líneas tiene PARAMS.in?

Ahora mismo solo 6 pero no sé si lo haré mayor o no... Es que voy pasito a pasito dado lo negada que soy... Tengo que generar muchos archivos de input para otro programa cambiando un par de variables pero solo una al tiempo así que creo que no será mucho mayor que ahora; estimo que a lo sumo tendrá unas 10 líneas...

¡¡Muchísimas gracias, ahora mismo te digo si funciona!!

Pues entonces, sí... te merece la pena hacerlo con plantillas... ahorrarás mucho tiempo.

Quizás con el Text::Template te sirva. Si sabes/puedes instalarte este módulo, podemos probar a pasar tu programa a usar plantillas.

Mmm perdona que te moleste otra vez pero me da un pequeño problemilla en la última línea system() me salta la línea de error y me dice que hay un error en dicha línea aunque sí me genera un archivo, el resto del programa va perfecto.. Siento ser tan pesada, ¡no me baneeis! XDDD