Ok, Theres en loggfil som inneholder nedenfor. Kan ringe logfile log_fantastic:

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


Jeg vil skrive en perl skript som vil lese innholdet i log_fantastic og utgang bare de linjene som ikke har en status_id av 10?

nedenstående er det jeg har gjort. ikke sikker på om dette er riktig:


Bruk Data:: Dumper;

main ();


sub main (
min @ resultater;
my $ headers \u003d "bruker,
mac-adresse,
status_id ";

min (@ log_info, @ dircontents);


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

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


# push @ alarm_info, uc $ headers;

print Dumper (@ dircontents);

)