🚀 go-pugleaf

En es.comp.os.linux.programacion, Angel <lomugo@supercable.es> escribi�:

> Buenas, me gustar�a programar un proceso que pasara de ficheros de texto 
> (log del sistema concretamente) a una base de datos Mysql. He pensando en 
> hacer un script de Perl que este continuamente (como una tarea programa de 
> crontab, o con un demonio de C que llame al script) leyendo los ficheros, 
> sacando la informaci�n, pas�ndola a sql y generando y ejecutando dichas 
> sentencias sql.
>
> Alguna sugerencia mejor para realizar esto?

Si los logs son a trav�s de syslog, puedes volcar la parte que te
interese a un fifo, p. ej, en syslog.conf:

auth,authpriv.*;*.=debug                |/ruta/fifo

Luego lo lees:

open (FIFO, "< /ruta/fifo") ||
   die ("No se pudo abrir el fifo\n");
while (<FIFO>) {
   if (m/... # Las expresiones regulares que quieras buscar
}

Si no quieres/puedes modificar el syslog.conf, o se trata de un programa
que no lo usa, puedes usar el m�dulo File::Tail:

use File::Tail;
my $log="/ruta/log";
my $f=File::Tail->new(name=>$log);
my $l;
while (defined($l=$f->read)) {
   if ($l =~ m/... # Expresiones regulares a buscar
}

Ambos m�todos son pr�cticamente iguales, ya que el meollo est�,
obviamente, en programar lo que haya dentro del while. En los dos casos
el proceso deber�a funcionar indefinidamente, pero para mayor seguridad
puedes monitorizarlo con daemontools, por ejemplo.