• Publicidad

Lectura continua de un log con syslogd

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Lectura continua de un log con syslogd

Notapor monoswim » 2007-07-25 16:24 @725

Hola gente, navegando encontré un script:
http://www.c-note.dk/viewcv/trunk/block ... ts&view=co

que con el Sys::Syslog hace esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
openlog('block_idiots_ssh', 'cons.pid', 'security');
open(SYSFIFO, "< " . $pipe) or die $1;
syslog('info', "Starting");

until ( $time_to_die ) {

        my $line = <SYSFIFO>;
}

close(SYSFIFO);
closelog();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Ese until es un bucle infinito (es un deamon) y va leyendo constantemente el log... se supone que en cada línea nueva que se escriba en el log lo va capturando en $line y con esto no tiene que ir leyendo varias veces el mismo log como si lo usáramos como un archivo normal...

¿Es correcto esto? ¿Alguien sabe si es bueno hacerlo o tiene alguna contra? Porque el log no se cierra hasta que muera el deamon, pueden pasar meses :S

En Internet encontré muy poca información al respecto...

La idea es leer los logs para hacer un seguimiento del uso que los usuarios del sistema hacen sobre algunos servicios puntuales...

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Publicidad

Notapor explorer » 2007-07-25 18:29 @811

Sí, es correcto. Se está conectando a un pipe abierto por Syslog. Es como un fichero que está en disco que siempre está generando contenido.

En este foro hay ejemplos de otras soluciones, como el File::Tail (Lectura continua de archivo).

De todas formas, para lo que lo quieres, te vale con el programa logcheck (disponible en su Linux más cercano) (también comentado en un par de hilos de este foro).
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

Notapor monoswim » 2007-07-26 10:32 @481

Voy a averiguar más sobre el logcheck, el tema es que quiero realizar distintas acciones dependiendo de como den los checkeos...

Saludos
PD: Gracias como siempre !!!
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires


Volver a Avanzado

¿Quién está conectado?

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

cron