Ok, theres een log bestand met de hieronder. Hiermee kunt u het logbestand log_fantastic:

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


Ik wil om een perl script dat zal de inhoud van log_fantastic en output alleen de lijnen die niet over een status_id van 10?

de hieronder is wat ik heb gedaan. niet zeker of dit juist is:


gebruik Data:: Dumper;

main ();


sub belangrijkste (
@ mijn resultaten;
my $ headers \u003d "gebruiker,
mac-adres,
status_id ";

mijn (@ log_info, @ dircontents);


open (LOG, "</ home / jhenson / log_fantastic");
@ log_info \u003d <LOG>;
close (LOG);

print Dumper ( "test");
foreach my $ inhoud (@ log_info) (
chomp ($ inhoud);
my $ line \u003d substr ($ inhoud, -2);
print Dumper ($ line);
if ($ line eq "OK") (
push @ dircontents, $ inhoud;
)
)


# push @ alarm_info, UC $ headers;

print Dumper (@ dircontents);

)