Ok, ott a log file tartalmazza az alább. Lehetővé teszi, hogy a naplófájl log_fantastic:

2009/03/16 21:42:45 FELHASZNÁLÓ: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - STATE: ERROR
2009/03/16 21:42:45 FELHASZNÁLÓ: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - STATE: OK
2009/03/16 21:42:45 FELHASZNÁLÓ: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - STATE: ERROR


Azt akarom, hogy írjon egy perl forgatókönyvet, hogy olvassa el az log_fantastic és kimeneti csak a sorok, amelyek nem rendelkeznek status_id a 10?

Az alábbiakban az, amit csináltam. nem biztos benne, ha ez a helyes:


adatok felhasználására:: Dumper;

main ();


sub fő (
my @ eredményeket;
my $ headers \u003d "felhasználó,
MAC-cím,
status_id ";

my (@ log_info @ dircontents);


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

print Dumper ( "vizsgálat");
foreach my $ tartalom (@ log_info) (
chomp ($ tartalom);
my $ sor \u003d substr ($ tartalom, -2);
print Dumper ($ line);
if ($ line eq "OK") (
push @ dircontents, $ tartalom;
)
)


# push @ alarm_info, uc $ headers;

print Dumper (@ dircontents);

)