Using perl Syntax Highlighting
# /usr/bin/perl -w
open(IN, "/var/log/secure");
open(OUT, ">/var/www/html/scripts/logs/secure.txt");
print "\n Fecha: | Hora: | Nombre: |Estado \n";
print "_________________________________\n";
while($line = <IN>) {
($mes, $dia, $hora, $nombre, $gmt, @status) = split(' ',$line); $status = join (' ', @status);
print "$dia $mes | $hora | $nombre | $status \n ";
}
close(IN);
close(OUT);
open(IN, "/var/log/secure");
open(OUT, ">/var/www/html/scripts/logs/secure.txt");
print "\n Fecha: | Hora: | Nombre: |Estado \n";
print "_________________________________\n";
while($line = <IN>) {
($mes, $dia, $hora, $nombre, $gmt, @status) = split(' ',$line); $status = join (' ', @status);
print "$dia $mes | $hora | $nombre | $status \n ";
}
close(IN);
close(OUT);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Al momento de correr Perl secure.pl , genera un secure.txt pero sin datos. ¿Qué es lo que esta mal?
¿Y cómo puedo hacer para que vaya actualizándose?. Intenté agregando la siguiente línea a cron
- 0-59/5 * * * * root env LANG=C /usr/bin/perl /var/www/htnl/scripts/secure.pl > /var/wwww/html/scripts/logs/secure.txt
pero recibe un mensaje de error y al ejecutar en línea de comando el mismo código sí genera secure.txt con datos.
