Foro - Perl en Español

Hola de nuevo,

He conseguido buscar una cadena de texto, $agentN, en el cuarto campo de archivo.txt y, si existe, reemplazar todo el campo por una nueva cadena, $agentC:



Tengo un par de dudas.

¿Hay alguna forma de no procesar las 6 primeras líneas de archivo.txt, ya que son una cabecera?

Tengo 4/5 valores para $agentN, cada uno con su correspondiente $agentC. En lugar de 4/5 condiciones, había pensado en definir un hash y utilizar un bucle foreach... ¿qué os parece?

Gracias por la ayuda,

La línea 36 está mal escrita. Has puesto el operador de expresiones regulares (=~), pero la parte derecha no es un patrón.

Si quieres que sea un patrón, debes delimitarlo con '/'. O si se trata de una comparación de cadena de caracteres, debes usar el operador 'eq'.

Por otra parte, la línea siguiente es demasiado para lo que realmente quieres hacer... Vamos a ver...

La función splice() sirve para extraer, insertar o sustituir elementos de un array. En el caso que pones, estás extrayendo el tercer elemento, y lo sustituyes por otro nuevo contenido. Lo has complicado mucho... A lo mejor querías decir esto:

Usamos el operador qq(), que realiza el mismo trabajo que las comillas dobles (interpolación), y así no tenemos que "escapar" las otras comillas dobles literales.

Para el problema de varias claves, lo normal es usar un hash, sí.


Para saltar las seis primeras líneas puedes usar un bucle:

Pero, es mejor que si la cabecera se puede distinguir del resto, usar otra forma. Por ejemplo, si la cabecera comienza con '#', es mejor poner un

Hola explorer,

He cambiado la función splice() por el cambio de variable que indicabas haciendo uso de qq().

En cuanto a lo que comentas del hash, creo que no me he expresado bien. No es que el campo 4 de archivo.txt sea igual a $agentesN, sino que debe contenerlo y, si es así, se cambia por el valor de $agentesC. Por eso había empleado el operador =~, porque me encontré algún ejemplo que parecía indicar eso.

Pero el caso es que, con el hash, no entiendo muy bien cómo funciona; es decir, cómo hacer referencia al primer valor (lo que llamé $agentesN) o al segundo ($agentesC).

He probado el código que indicas pero no hace la sustitución en el 4º campo, entiendo que porque la línea 36 del código indica que ambos valores deben coincidir, no uno contener al otro, que es lo que necesitaría...

Muchas gracias y un saludo,

Entonces, sí, sí que debes usar una expresión regular:

El problema está en la solución con hashes: hay que hacer un bucle para encontrar la concordancia:
Lo que hacemos es recorrer las claves del hash. Si alguna de esas claves se encuentra en la cuarta columna, hacemos la sustitución por el valor correspondiente a esa clave, y terminamos el bucle.

Si la cuarta columna tuviera un formato determinado, se podría hacer más óptimo.

Hola explorer,

Muchas gracias por tus respuestas y, sobre todo, por la paciencia con un novato

Ahora sí hace los cambios que necesito. Voy a ver si puedo adaptarlo a para otro archivo.txt que tendría un número de columnas variable, aunque la estructura de las cuatro primeras es como en este caso.

Lo dicho, gracias por tu tiempo y ayuda.

Pues, en principio... no tendrías que hacer nada...

Pues no me funciona... El número de campos puede variar en cada línea y están separados por espacios. Pero hay campos que son un texto entre comillas con espacios en blanco y claro, en lugar de considerarlo un campo, lo parte en varios...

Por eso en la línea 30 le puse un '4', al split().

Ya, entiendo que eso partía la línea en 4 campos. Pero en este .txt no sé cuántos campos hay.

¿Existe alguna forma de indicar que el texto que va entre comillas dobles se debe considerar un único campo?

Gracias.

A ver... no te hace falta...

Dices que las cuatro columnas siguen el esquema anterior, y que luego sigue una serie de columnas, que no sabemos cuántas son.

Entonces, lo que hay que hacer es modificar el split() cambiando el 4 por un 5.

El split() partirá la línea en 5 partes: las cuatro primeras contienen las cuatro columnas que conocemos, y el quinto campo contiene el resto de la $linea. El join() final la recompondrá.