Foro - Perl en Español

Hola.

Ando queriendo abrir un archivo llamado todo.txt el cual contiene


para después abrir como un array e ir reemplazando cada hola con un ok en el archivo de texto.

¿Alguien me podría ayudar?

P.D.: También alguien me podría decir cómo puedo verificar que un archivo de texto tenga permisos de escritura.

No necesitas ni un programa para realizar esa operación:

perl -p -i -e 's/hola/ok/' fichero.txt

que es lo mismo que este programa:


Y para saber si un fichero tiene permisos de escritura, con un test de fichero:

Gracias explorer.

Ahora, si yo quiero borrar ese "hola" encontrado en vez de reemplazarlo, ¿cómo haría?

Pues cambias la expresión regular...

s/hola//;

Hola, soy nueva en este foro, pero tu problema es muy parecido al mío, solo que yo no sé lo que dice, simplemente quiero borrar el renglón 1, 2, 3, o el que yo le introduzca, ¿cómo le hago?

es decir:

si mi archivo es:

hola
yo
uso
Perl

y quiero borrar el renglón 2, a la hora de abrir el archivo diga

hola
uso
Perl

Bienvenida a los foros de Perl en español, Tikygaki.

Tu caso, aunque parecido, es distinto. Tu lo que quieres es quitar una línea entera.

En Perl, la variable especial $. contiene el número de registro, así que es fácil eliminar el segundo renglón, cuando estemos en él.

Algo así:

wooo Muchas gracias n.n Llevaba atorada allí mucho tiempo ¡ja,ja!, pero ahora una duda más: si lo que quiero es que se modifique en el mismo archivo, porque allí me está creando otro, lo que pasa es que lo mando llamar desde otro .pl que me imprime lo que tiene ese archivo y allí me selecciona cuál desea borrar, y al volverlo a correr me vuelve a imprimir todo otra vez, espero y me haya explicado.

Lo abres en modo lectura y otro nuevo en modo escritura. Luego el nuevo lo renombras con el nombre del archivo antiguo.



Saludos.

Bueno, lo que puedes hacer es abrir un fichero temporal, en modo escritura.
Luego, cambiar el print de la línea 10 para que, en vez de enviarlo hacia la salida estándar, lo haga a ese nuevo fichero temporal.
Después del bucle, solo tienes que hacer un rename 'temporal', 'kk.txt'; para que el temporal, ya modificado, sustituya el archivo original.

Todo esto lo tienes explicado en la pregunta How do I change, delete, or insert a line in a file, or append to the beginning of a file? del perlfaq5.

Como se comenta ahí, se puede usar el tradicional Tie::File o el más moderno File::Slurp:

wooo Sí funcionó, muchas gracias, en serio que me sacaron de un apuro. Una última cosa, y no sé si deba ponerlo aquí. Lo que pasa es que intento hacer una página web, y en el HTML pongo en lista cada renglón que tiene, por ejemplo:

Hola
yo
uso
Perl

y con un checkbox, selecciono cada renglón que quiero borrar, eso me lo envía al .pl que estoy haciendo y se supone que los que seleccione se deben borrar. Ya sé cómo borrar un renglón en especifico, pero no sé cómo hacer que se borren según el array.