Foro - Perl en Español

¿Qué tal, amigos perleros? Mi problema es el siguiente:

Estoy haciendo un script que remplace una determinada línea dentro de un archivo de texto. Estuve leyendo tutoriales pero según los tutoriales que vi, para abrir archivos en modo lectura hace esto:

open(LECTURA,">> cableado") || die "No pudo abrirse: $!";

lo abre en modo escritura y escribe al final del código

open(LECTURA,"> cableado") || die "No pudo abrirse: $!";

escribe al inicio del código.

Pero lo que yo quiero hacer es que escriba en solo determinadas líneas. Más o menos ya lo sé cómo hacer pero no tengo idea de cómo abrir el código para remplazar las líneas que quiero.

Hasta ahora tengo esto:


y me arroja esto:
Search pattern not terminated at escribir.pl line 7.

Saludos a todos

El error es muy claro: el patrón de búsqueda no está correctamente terminado: te falta un '/' al final del patrón.

Disculpa, ahí arreglé el tema. Es que yo quiero, dentro de un string, reemplazar solo ese string y no poner abajo de todo el código o arriba de todo, ¿cómo lo puedo hacer?

Hasta ahora tengo esto pero me agrega al final del código el string.

El código que muestras debería ser suficiente para cambiar todas las apariciones de 'src=', por la modificación que indicas.

Pero... estás modificando el fichero en cada ocasión que encuentras la cadena.

La solución es leer todo el fichero de golpe, hacer la sustitución, y grabar el resultado.

Algo así (no probado):

Otra opción: desde la línea de comandos:

¿Me ayudarías a entender un poco más el código que pusiste?

Gracias

Por ejemplo, cuando defines LOCAL $/ ¿qué sería la función de eso?

¿También me puedes a ayudar entender la lógica que aplicaste aquí?

$html =~ s{src="}{src="facebook.com/}g; # ¡zas!

Gracias

Con local $/; estamos indicando varias cosas...

• $/ es una variable especial que indica cómo es el separador entre los registros de entrada, en el momento de la lectura del fichero. Por defecto, es el avance de línea, por lo que, efectivamente, un fichero de texto normal lo podemos leer línea a línea.
• Con local(), almacenamos el valor anterior de $/ (el que sea) en una memoria temporal, y asignamos un nuevo valor a $/. El caso es que... no estamos indicando ningún nuevo valor, así que estamos almacenando el valor 'undef' en $/
• Si $/ tiene el valor "indefinido", quiere decir que no esperamos ningún delimitador entre registros de entrada, por lo que, en la primera lectura del fichero, lo leeremos completamente.

Más información en perldoc perlvar.

$html =~ s{src="}{src="facebook.com/}g; # ¡zas!

es una expresión regular, usando el operador sustitución (s///) aplicado a la variable escalar $html. Buscamos por 'src=' y lo sustituimos por 'src="facebook.com/', de forma repetida a lo largo de todo el texto (/g).

La variable $html almacena todo el fichero. Se aplica la expresión regular, que hará los cambios en todos los lugares donde encuentre el patrón de búsqueda.

Como detalle curioso, en lugar de usar los delimitadores '/' en el operador s///, usamos llaves emparejadas, ya que, dentro de uno de los patrones (el de sustitución), ya contiene un carácter '/'. Se podría solventar escapándolo así:

$html =~ s/src="/src="facebook.com\//g; # ¡zas!

pero, con las llaves, queda más claro.

Y el '# ¡zas!', es un comentario.

Más información en peldoc perlop, en la sección Regexp Quote-Like Operators.

Gracias por tu respuesta

Estoy tratando de hacerlo funcionar pero no estoy pudiendo. Lo que noto es que, por ejemplo, viste cuando haces la sustitución:


Lo haces afuera del gestor DATOS. Por ejemplo, si hago un print() a $html antes de hacer la sustitución no me tira nada:


Es como que si hubiera quedado guardado los datos en $html, en cambio si al print $html lo hago adentro del gestor, antes del close(), sí me imprime.

Espero que me halla explicado bien. Cualquier cosa me preguntas, ¡je,je! Gracias

Pues no lo entiendo que no salga nada... a mi me funciona...

La variable $html almacena los contenidos de toda la página almacenada en el fichero indicado por $url...