Muchas gracias por tu respuesta explorer.
Como me comentabas antes, usando esta función podemos recorrer un fichero desde el final hacia atrás. En mi caso hasta que el campo fecha del log sea distinto de fecha actual.
Using perl Syntax Highlighting
use File
::ReadBackwards ;
$bw = File
::ReadBackwards->new( 'fichero_log' ) or die "no puedo leer fichero_log: $!";
while( defined( $linea_log = $bw->readline ) && $log_line[columna_fecha
] eq $fecha_actual) {
print $log_line ;
}Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4
Esto imprime las líneas del fichero en orden inverso.
Un saludo