Ok, theres en log fil, der indeholder nedenfor. Lets kalde logfile log_fantastic:

2009/03/16 21:42:45 Bruger: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - TILSTAND: Fejl
2009/03/16 21:42:45 Bruger: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - State: OK
2009/03/16 21:42:45 Bruger: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - State: Fejl


Jeg ønsker at skrive en perl script, der vil læse indholdet af log_fantastic og output, er det kun de strækninger, der ikke har en status_id på 10?

nedenstående er hvad jeg har gjort. ikke sikker på, om dette er korrekt:


brug Data:: Dumper;

vigtigste ();


sub vigtigste (
min @ resultater;
min $ headers \u003d "bruger,
MAC-adressen,
status_id ";

min (@ log_info, @ dircontents);


åben (LOG, "</ home / jhenson / log_fantastic");
@ log_info \u003d <LOG>;
tæt (log);

print Dumpere ( "test");
foretrukne min $ indhold (@ log_info) (
chomp ($ indhold);
min $ linje \u003d substr ($ indhold, -2);
print Dumpere ($ linje);
if ($ line eq "OK") (
push @ dircontents, $ indhold;
)
)


# push @ alarm_info, uc $ headers;

print Dumpere (@ dircontents);

)