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