Foro - Perl en Español

Hola a todos.

Tengo un problema a la hora de usar esta función sobre un fichero.

Tengo el código siguiente.


En teoría se deberían cargar en el array @lineas todas las líneas del log comprendidas entre $begin y $end, pero a la hora de mirar el array si $begin es la primera línea del log no me la carga o si $begin es la 2ª línea del log me coge también la anterior, unas cosas muy raras.

¿Puede ser por el formato del log? ¿o por un mal uso de la función?

El log tiene el siguiente formato:

Código: Seleccionar todo

2007-11-26 21 312  421
2007-11-27 1 32  21
2007-11-28 2 31  41
2007-11-29 23 32  41
2007-11-30 31 12  41
2007-11-31 61 32  21

Muchísimas gracias por vuestro interés.

Ya encontré el fallo.

Resulta que el módulo File::SortedSeek hace comparaciones exactas con lo que pedimos que busque, y claro, le estás pidiendo que busque por una fecha, pero las líneas del log tienen más cosas que una fecha.

Por eso, en algunas ocasiones te daba una línea distinta, porque el módulo intenta buscar la línea más semejante, en caso de no poder encontrar la más exacta.

La solución pasa por indicar al módulo que use nuestra propia rutina de comparación. Mejor dicho, le pasaremos una rutina que extrae el elemento que el módulo debe usar para hacer la comparación.

En nuestro caso, se trata de sacar el campo de la fecha.


Ves que, además de la fecha que buscamos, le pasamos una referencia a la subrutina &comparacion, que se encarga de extraer el campo con el cual el módulo debe realizar las búsquedas.

He hecho varias pruebas y ahora sí que encuentra las líneas correctas. ¡Prueba!

¡Muchas gracias explorer!

Ya estaba modificando el código de la subrutina get_between(), pero sin ningún éxito.

Saludos.

He probado lo que me has dicho en el mensaje anterior y no me carga nada en el array.

¿Tengo que instalar alguna otra función?

Por lo visto no me llama bien a la subrutina comparación.

¿Le tengo que pasar algún parámetro a la subrutina dentro del $begin=alphabetic(*DATOS,$start,\&comparacion(¿algún parámetro?))??

Saludos

Yo no he dicho nada de modificar la función get_between, del módulo.

Con el fichero de log que has enseñado antes, y con el programa que te he presentado, a mí sí que me funciona. No es necesario pasarle ningún parámetro a la función de extracción. El módulo la llama pasándola la línea a comparar y se espera que devuelva el campo a comparar con lo que le indicas en $start.

En la documentación del módulo comentan algo de los finales de línea. Quizás sea eso.

Para comprobar que llama a &comparacion, pon algún print dentro de ella, como por ejemplo:

siendo $linea la línea que nos pasa como argumento.