Using perl Syntax Highlighting
#!/usr/bin/perl -w
$LOGFILE = "/var/log/maillog";
open(LOGFILE) or die("El fichero no pudo ser abierto");
print "\n Fecha: | Nombre: | Hora: \n";
print "------------------------------\n";
foreach $line (<LOGFILE>) {
($mes, $dia, $hora, $nombre, $comando, $msj) = split(' ',$line);
print "$dia $mes | $nombre | $hora | $comando ! $msj \n ";
}
close(LOGFILE);
$LOGFILE = "/var/log/maillog";
open(LOGFILE) or die("El fichero no pudo ser abierto");
print "\n Fecha: | Nombre: | Hora: \n";
print "------------------------------\n";
foreach $line (<LOGFILE>) {
($mes, $dia, $hora, $nombre, $comando, $msj) = split(' ',$line);
print "$dia $mes | $nombre | $hora | $comando ! $msj \n ";
}
close(LOGFILE);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
pero el $msj como es de esperarse sólo me llama a una palabra y lo que quiero es que llame al resto de la línea, pues a veces hay tres palabras y otras veces muchas más... ¿cómo podría llamar a todo el grupo de palabras restantes?
Y otra pregunta.. ¿hay algún modo para poder llamar sólo a las líneas generadas en los últimos dos meses, por ejemplo?
Agradecería mucho su respuesta..
