Bueno, los theres un archivo de registro que contiene el siguiente. Permite llamar el logfile log_fantastic:

2009/03/16 21:42:45 USUARIO: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - ESTADO: ERROR
2009/03/16 21:42:45 USUARIO: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - Estado: OK
2009/03/16 21:42:45 USUARIO: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - ESTADO: ERROR


Quiero escribir una perl script que leerá el contenido de log_fantastic y sólo las líneas de salida que no tiene un status_id de 10?

la que figura a continuación es lo que he hecho. no está seguro de si esto es correcto:


uso de Data:: Dumper;

main ();


principales sub (
@ mis resultados;
my $ cabeceras \u003d "usuario,
dirección MAC,
status_id ";

mi (log_info @, @ dircontents);


abierto (log, "</ home / jhenson / log_fantastic");
@ log_info \u003d <LOG>;
cierre (registro);

Dumper de impresión ( "testing");
foreach my $ contenido (@ log_info) (
chomp ($ contenido);
mi línea $ \u003d substr ($ contenido, -2);
imprimir Dumper ($ linea);
if ($ linea eq "OK") (
push @ dircontents, $ contenido;
)
)


# push @ alarm_info, uc $ cabeceras;

imprimir Dumper (@ dircontents);

)