• Publicidad

Recorrer un fichero desde el final hacia atrás

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Recorrer un fichero desde el final hacia atrás

Notapor rfm » 2007-11-22 11:06 @504

Buenas tardes a todos.

Como bien dice el asunto, me gustaría saber si es posible recorrer un log desde el final hacia atrás, ya que los datos que me interesan están al final del fichero y dicho fichero tiene un millón de líneas y creciendo...

Un saludo y muchísimas gracias por vuestra labor.
rfm
Perlero nuevo
Perlero nuevo
 
Mensajes: 47
Registrado: 2007-11-09 09:00 @417

Publicidad

Notapor explorer » 2007-11-22 11:56 @539

Prueba el módulo File::ReadBackwards y luego nos lo cuentas, por favor...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Recorrer un fichero desde el final hacia atrás

Notapor rfm » 2007-11-22 12:32 @564

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.

Sintáxis: [ Descargar ] [ Ocultar ]
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.002 segundos, usando GeSHi 1.0.8.4


Esto imprime las líneas del fichero en orden inverso.

Un saludo
rfm
Perlero nuevo
Perlero nuevo
 
Mensajes: 47
Registrado: 2007-11-09 09:00 @417


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados