Foro - Perl en Español

Hola, tengo una consulta: Cómo puedo modificar a la vez una palabra por otra en el nombre de unos ficheros y en su contenido.
El nombre de los ficheros tiene un patrón común, plujatempabril.htm, todos empiezan por el nombre de una población. Por ejemplo, Barcelonaplujatempabril.htm, Valenciaplujatempabril.htm... Quiero cambiar abril por mayo... en el nombre de los ficheros y en el interior de los ficheros. En el siguiente código realizo el cambio para un fichero en concreto, pero para todos ¿cómo debo hacerlo? Gracias.


Gracias otra vez.

Bueno, son dos procesos distintos: el interior y el nombre del archivo.

Yo leería el contenido, haría el cambio en el interior, y luego grabaría el resultado en el nuevo archivo (así, el archivo anterior no lo pierdo).

Gracias, explorer.

Entiendo el código, pero solamente me crea un fichero plujatempmayo.htm y dentro está el contenido de la última población y con las palabras mayo y Mayo. No reconoce $ciutat...

Ya está arreglado. Hay que cambiar $archivo por $arxiu en la línea 10.

Gracias, explorer.

Hay una línea que no entiendo, en concreto esta:

$arxiu es el nombre completo del archivo: pero en la línea 10, lo igualamos a my($ciutat), no llego a entenderlo.

Saludos.

En la línea 8, con la ayuda del operador diamante, vamos obteniendo un nombre de archivo completo, en cada vuelta del while().


En la línea 8, se recorre cada nombre de archivo que coincida con el patrón. $arxiu va tomando cada nombre de archivo.

Por ejemplo, en una vuelta sería $arxiu igual a 'Barcelonaplujatempabril.htm'.

A continuación viene la línea 10. En ella, aplicamos la expresión regular a $arxiu. La expresión regular lo que hace es:

• busca desde el comienzo de la cadena de caracteres (^)
• seguido por uno o más (+) caracteres alfanuméricos (\w)
• esos caracteres serán capturados (())
• y deben ser seguidos por el patrón $patro

Si el nombre del archivo coincide con todo este patrón, tendremos capturado en $1 el comienzo del nombre del archivo. En nuestro ejemplo, 'Barcelona'.

Luego, Perl mira a la izquierda. Y lo que se encuentra es un par de paréntesis: my($ciutat). Entonces, el comportamiento de la expresión regular cambia, porque Perl se da cuenta de que se está ejecutando en contexto de lista, no en contexto de escalar.

Si hubiéramos escrito my $ciutat = $arxiu =~ /^(\w+)$patro/; (sin los paréntesis), estaríamos ejecutándolo en contexto escalar, y el resultado que se almacena en $ciutat sería un valor de verdad '1' (verdadero) o '' (cadena nula, falso), para indicar si la expresión regular ha conseguido una coincidencia entre $arxiu y el patrón.

Pero... al poner los paréntesis a la izquierda, estamos queriendo decir que queremos que se ejecute en contexto de lista, y la consecuencia de ello es que la exp. reg. devuelve una lista de valores, que serán las capturas hechas dentro del patrón.

En el patrón solo tenemos un par de paréntesis de captura, así que la exp. reg. devuelve una lista de valores de un solo valor ('Barcelona'). Y se almacena en las variables que están entre los paréntesis de la izquierda.

Así que 'Barcelona' se almacena en $ciutat, que usaremos luego en la línea 13 para crear el nuevo nombre de archivo.

Muchas gracias, explorer, por esta explicación tan desarrollada. Saludos.

Una última pregunta sobre este asunto... si quisiera mantener el mismo nombre de fichero, que el nombre del $OUTPUT sea igual al $INPUT, ¿cómo se procede? He estado modificando '<', pero el fichero que me guarda está vacío.

Lo que puedes hacer es que la salida vaya a un archivo con un nombre temporal, y cuando hayas terminado de sacar todas las filas, haces un move() desde el nombre temporal al definitivo. El move() lo encuentras en el módulo File::Copy.