Foro - Perl en Español

por **jonhperl** » 2010-07-21 19:36 @858

Saludos, tengo el problema que quiero ver un archivo access.log en tiempo real y uso el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "content-type: text/html \n\n";
 
print qq|
 
<html>
 
 <head>
   <title>
      Prueba de jQuery
        </title>
        <script src="jquery.js" type="text/javascript"></script>
 
 </head>
 
  <body>
|;
 
print "Bienvenidos a mi script, si vemos este mensaje es porque funciona todo perfecto";
 
</script>';
select(STDOUT);  $| = 1;        # Flush output after each print
 
print '<div id="resultadoConsulta"  style="width:600px; height:300px; overflow:auto;">';
 
 open(LS,"/usr/bin/tail -f /var/log/access.log|"); 
 while ( $line = <LS>)
    {
        #print "$line<br>";
        (@l) = split(/\s+/,$line);
        chop($line);
        $cad = $l[0]." ".$l[1]." ".$l[2]." ".$l[3]." ".$l[13];
        $cad = $line;
        print '<script language="JavaScript">$("#resultadoConsulta").prepend("'.$cad.'<br>")</script>';
    }
print "</div>";
close(LS);
 
print qq|
 </body>
 </html>
|;
           
exit(1);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que hace este script es que ejecuta el comando tail y cuando tiene una nueva línea la agrega al principio de un div. El problema es que como nunca acaba el proceso del comando tail, al cerrar la página se queda ejecutando el proceso y se van acumulando. La pregunta es que si hay otra forma más eficiente de ver los logs en tiempo real. Gracias por su atención

Atentamente, Jonh

Bienvenido a los foros de Perl en Español, jonhperl.

Efectivamente, ese es el problema: que el programa tail nunca regresa.

Una forma sencilla de hacerlo sería, primero, haciendo un $|=1; al principio del CGI para evitar que haya cacheo de la salida. Luego, en lugar de usar el comando tail del sistema, podrías usar el módulo File::Tail, que realiza la misma operación, pero te permite ejecutar tu código línea a línea nueva de access.log, que enviarás a la salida estándar.

Así, el CGI nunca termina, y envía una línea del access.log (o más de una si las hubiere) a la página.

Lo malo es que no se trataría de una página HTML normal, ya que nunca se terminaría de forma automática, sino que pararía por orden del usuario o por un timeout del servidor. Y además, no es compatible con todos los navegadores, que a veces esperan a que la conexión termine para representar toda la página.

Otra forma de hacerlo: cuando el usuario desea ver el access.log, lo pasas a una página HTML que tiene puesta la opción de autorefrescarse cada X segundos. El refresco consiste en llamar a un CGI, que genera una página con las últimas N líneas de access.log (también con la ayuda de tail -N, por ejemplo). La ventaja es que con esta solución no hay programas funcionando y terminas la conexión HTTP enseguida. La desventaja es que si hay mucho movimiento en access.log, el usuario puede perder la vista de algunas líneas. Esto último se puede resolver usando cookies o una query con fecha, en la URL.

Esto mismo se puede realizar en forma de Ajax, pero la única diferencia es en la parte de presentación, no la de servidor. Con CGI::Ajax también lo puedes hacer.

Foro - Perl en Español

Ver logs en tiempo real

Ver logs en tiempo real

Publicidad

Re: Ver logs en tiempo real

¿Quién está conectado?