Ok, Theres en loggfil innehåller nedan. Lets ringa loggfil log_fantastic:

2009/03/16 21:42:45 Användare: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - STATE: FEL
2009/03/16 21:42:45 Användare: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - STATE: OK
2009/03/16 21:42:45 Användare: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - STATE: FEL


Jag vill skriva en perl skript som kommer att läsa innehållet i log_fantastic och output endast de linjer som inte har en status_id i 10?

nedan är vad jag har gjort. inte säker på om detta är korrekt:


använda data: dumper;

viktigaste ();


sub viktigaste (
min @ resultaten;
min $ headers \u003d "användare,
MAC-adress,
status_id ";

min (@ log_info, @ dircontents);


öppen (LOG, "</ home / jhenson / log_fantastic");
@ log_info \u003d <LOG>;
nära (LOG);

print Dumprar ( "test");
foreach mina $ innehåll (@ log_info) (
chomp ($ innehåll);
min $ rad \u003d substr ($ innehåll, -2);
print Dumprar ($ line);
if ($ line eq "OK") (
push @ dircontents, $ content;
)
)


# push @ alarm_info, uc $ headers;

print Dumprar (@ dircontents);

)