Tengo un problema a la hora de usar esta función sobre un fichero.
Tengo el código siguiente.
Using perl Syntax Highlighting
######################################
use File::SortedSeek ':all';
open DATOS,'./datos.log' or die $!;
$begin=alphabetic(*DATOS,'2007-11-26');
$end=alphabetic(*DATOS,'2007-11-31');
@lineas=get_between(*DATOS,$begin,$end);
close(DATOS);
######################################
use File::SortedSeek ':all';
open DATOS,'./datos.log' or die $!;
$begin=alphabetic(*DATOS,'2007-11-26');
$end=alphabetic(*DATOS,'2007-11-31');
@lineas=get_between(*DATOS,$begin,$end);
close(DATOS);
######################################
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
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.