Ok, Theres лог-файл, содержащий ниже. Давайте называть файл_журнала log_fantastic:

2009/03/16 21:42:45 Пользователь: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - STATE: ERROR
2009/03/16 21:42:45 Пользователь: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - СОСТОЯНИЕ: OK
2009/03/16 21:42:45 Пользователь: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - STATE: ERROR


Я хочу написать Perl скрипт, который будет читать содержание log_fantastic и вывода только строки, которые не имеют status_id 10?

ниже то, что я сделал. не уверены в том случае, если это верно:


Использование данных:: самосвалы;

Main ();


Sub Main (
моя @ результатов;
Заголовки моих $ \u003d "пользователь,
Mac-адрес,
status_id ";

мое (log_info @, @ dircontents);


OPEN (LOG, "</ главная / jhenson / log_fantastic");
@ log_info \u003d <LOG>;
CLOSE (LOG);

печать на самосвалах ( "тестирования");
foreach $ моей содержания (@ log_info) (
chomp ($ содержанием);
мои строки $ \u003d substr ($ содержании, -2);
Версия для печати самосвалы ($ строка);
если ($ строка эе "OK") (
нажимаем @ dircontents, $ содержания;
)
)


нажать # @ alarm_info, UC $ заголовков;

печать на самосвалах (@ dircontents);

)