Foro - Perl en Español

Hola explorer,

Ya lo intenté pero no me sirve así. El archivo.txt tiene un formato

2013-05-31 09:00:15 172.16.18.5 "blabla bla Juan blablabla" campo5 campo6
2013-05-31 09:00:18 172.19.194.101 "blabla bla Antonio blablabla blabla bla" campo5 campo6 campo 7 campo8
2013-05-31 09:00:21 172.16.18.5 "blabla Juan blablabla" campo5
...

Al hacer el split() con cinco campos:

$campo[0] = 2013-05-31
$campo[1] = 09:00:15
$campo[2] = 172.16.18.5
$campo[3] = "blabla
$campo[4] = bla Juan blablabla" campo5 campo6

El $campo[3] es siempre "blabla, con lo cual no encuentra los nombres que tengo que buscar en medio del texto (Juan, Antonio, etc). La idea era buscar un string dentro del texto que va entre comillas y, si lo encuentra, sustituir todo ese texto por un nuevo string.

Supongo que necesito partir el fichero considerando el espacio en blanco como separador de campos, pero pudiendo indicar que las comillas son un delimitador de texto y por tanto no se debe partir en campos el texto que esté entre comillas.

Gracias por tu ayuda.

Buscar algo entrecomillado puede ser muy fácil o muy difícil, si tenemos claro que entre esas comillas no hay otra comillas.

La siguiente versión tiene en cuenta el caso que comentas: el cuarto campo contiene una sección entrecomillada, y es en ella donde tenemos que buscar las correspondencias para hacer los cambios.
Este es el resultado:
Esto es lo que hacemos: seguimos partiendo la línea en cuatro partes. De la cuarta parte, extraemos lo primero que encontremos que esté entrecomillado y lo guardamos en $sujeto (por llamarlo de alguna manera). Luego, en la comparación con los hash, si alguna clave se encuentra dentro de ese $sujeto, hacemos una operación de sustitución: cambiamos lo que encontremos en el primer par de comillas dobles por el valor correspondiente a la clave coincidente. El resto de $campos[3] no es tocado, tenga las columnas que tenga.

Hola explorer,

Ahora sí lo hace bien, pero da un warning en cada línea que procesa de archivo.txt:

Use of uninitialized value $sujeto in pattern match (m//) at line 41

Lo que no entiendo, porque $sujeto está definido en la 34 y dentro del bucle while, ¿no?

Por otra parte, estoy intentando que $IP no tenga que ser exactamente igual al valor en %redes, sino contenerlo, ya que así me evito procesar el archivo.txt para eliminar la parte de host, como estaba haciendo hasta ahora. He probado cambiando las líneas 36-38 por:

pero de esta forma no me hace el cambio.

Si sale el error de que $sujeto está indefinido, es que no existen parejas de comillas en $campos[3].

En cuanto a solo cambiar las IP, ya lo hicimos al principio de este hilo, ¿no?

Lo del Warning lo compruebo mañana, porque es cierto que hay algunas líneas en los que el campo está vacío, así que comprobaré si ocurre en todas o sólo en las que está vacío.

En cuanto a lo de las IP, estaba resuelto pero comprobando que la IP del campo 2 fuese exactamente igual a la red de la sede ( tenía un if (exists)). Pero eso me obliga a procesar antes ese fichero.txt para eliminar la parte de host de la IP. Por eso lo que pretendo ahora es que se compruebe si $IP contiene la red del centro, para no tener que procesar antes con un vbscript, que tarda lo suyo

Bueno, mañana sigo probando y os cuento. Gracias por todo.

Con mi solución de expresión regular (en la primera página de este hilo), puedes hacer la sustitución de las IP de forma rápida. Ya lo probaste, ¿no?

De todas maneras, no hay mucha ganancia de velocidad el hacerlo por separado...

El comparar si el segundo campo es alguna de las IP que tenemos en el hash es algo normal y lógico, porque se supone que solo habrá IP en ese campo. Otra cosa es que digas que pueden aparecer en otros campos.

Entonces, puedes hacer esto: lees todo el $archivo de golpe, haces las transformaciones con la expresión regular y el operador de sustitución (s///) y luego partes $archivo en líneas (con split) recorriendo cada línea y haciendo el resto de cambios y guardando el resultado. Sigue siendo un solo programa.

Hola explorer,

Ya he conseguido que se compruebe únicamente la parte de red de la sede en archivo.txt (y no que coincidan exactamente, como lo tenía hasta ahora). Ahí va el código (creo que definitivo, por fin )



Como comentabas, el warning sale porque efectivamente hay líneas en las que el campo[3] es un guión ("-") y no tiene nada entrecomillado, pero no he conseguido evitar este warning.

Muchas gracias por tu ayuda y tiempo.

Puedes tratar de validar antes, para evitar el warning, pero si no también puedes usar el no uso de warning

La solución más obvia es la que te comenta danimera, claro. También puedes hacerlo quitando o comentando la línea 'use warnings'.

También puedes hacer esa comprobación antes, con lo que ganas en velocidad, ya que no se hace ninguna búsqueda:


Lo que no me gusta es lo del cambio de la IP. Tal cual lo muestras es que estás indicando que $campos[2] contiene algo más de texto que una simple IP. ¿Es así? Porque no es lo que nos has enseñado en los ejemplos...

Además hay un problema: si estamos buscando por la IP 127.0.0.1, coincidirá erróneamente con 127.0.0.11, o incluso 127.0.0.111. Debes cambiar el patrón de la expresión regular para agregarle las marcas '\b', para indicar que después (y antes) de la IP nos interesa que no haya nada más que no sea un límite de palabra:

$IP =~ m/\b$redC\b/

Lo mismo se puede decir de la búsqueda de $agentN: si buscamos por "Juan", también coincidirá con "Juan Antonio".

Otro tema también es el de los '.' dentro de las IP: son comodines para la expresión regular. No es problemático, pero en algunos cosas podría dar sorpresas. Por ejemplo, si buscamos por 127.0.0.1, coincidirá con el número 127802061.

Hay una forma de aumentar la velocidad: si supiéramos que no tenemos los problemas comentados antes (eso depende del verdadero formato de los campos), se pueden sustituir las búsquedas -por medio de expresiones regulares- a búsquedas realizadas con la función index(), que dará una respuesta mucho más rápida.

Hola,

Gracias a ambos por las aportaciones.

Tienes razón, explorer: estaba trabajando con ficheros de ejemplo y, a raíz de tu comentario, veo que la he liado un poco, ya que en archivo.csv que puse aparecía la IP del cliente y no la red de la sede, como es el caso. Perdón por el error. A ver si aclaro lo de la IP. Los ficheros tienen los formatos siguiente:


Es decir: los tres primeros octetos del campo IP Cliente del archivo.txt coinciden con el campo IP Sede en archivo.csv (campo que además termina con "."). De ahí el interés en comprobar que el campo IP Cliente CONTENGA el campo IP Sede, y no que sean COINCIDENTES como hacía al principio con el if exists.

Lo que hacía era procesar antes archivo.txt con un VBScript que eliminaba el último octeto del campo IP Cliente, con lo que en ese caso ambos campos ya eran coincidentes, pero claro, al trabajar con los archivos reales (sobre 1 GB de texto) el rendimiento de este VBScript no era bueno.

Ahora, al cambiar
if (exists $redes{$IP}) {
por
if ($IP =~ m/\b$redC\b/) {

evidentemente el rendimiento ha empeorado, cosa que veo lógica ya que a nivel de cálculo, no es lo mismo buscar una cadena que contenga otra que comparar si dos cadenas coinciden.

Espero haber aclarado las cosas un poco y no haberlas liado más. Os pido disculpas por el error.

Voy a echar un vistazo a la función index() que comenta explorer a ver si me aclaro y consigo mejorar el rendimiento. Gracias por vuestra ayuda.