Новые ответы

perl вопрос парсинга,

close, 12-Июл-07, 13:38 [смотреть все]

помогите, уже всю голову сломал.
есть 2 файла:
dynamic.log
static.log
содержимое 1-го:
BackupMSB;2007-07-08;01:00:00;Incremental backup;Completed successfully
BackupSsw_A;2007-07-08;01:00:01;Incremental backup;Completed successfully
содержимое 2-го:
BackupMSB
0;0;Backup Object: BackupMSB
1;0;Host name: msb.rra.ru
2;0;Date
2;1;Time
2;2;JobId
2;3;Mode
2;4;Status
3;0;2007-07-08
3;1;01:00:00
3;2;1,813
3;3;Incremental backup
3;4;Completed successfully
BackupSsw_A
0;0;Backup Object: BackupSsw_A
1;0;Host name: ssw.rra.ru
2;0;Date
2;1;Time
2;2;JobId
2;3;Mode
2;4;Status
3;0;2007-07-08
3;1;01:00:01
3;2;1,814
3;3;Incremental backup
3;4;Completed successfully

в dynamic.log периодически падают логи, как видно выше. задача состоит в том, что данные упавшие в dynamic.log необходимо преобразовать в данные, как они выглядят в static.log, причем не удаляя ничего из static.log, а инкрементально добавляя туда записи, т.е. после объединения этих двух файлов static.log должен выглядеть так:
BackupMSB
0;0;Backup Object: BackupMSB
1;0;Host name: msb.rra.ru
2;0;Date
2;1;Time
2;2;JobId
2;3;Mode
2;4;Status
3;0;2007-07-08
3;1;01:00:00
3;2;1,813
3;3;Incremental backup
3;4;Completed successfully
4;0;2007-07-08
4;1;01:00:00
4;2;1,813
4;3;Incremental backup
4;4;Status
BackupSsw_A
0;0;Backup Object: BackupSsw_A
1;0;Host name: ssw.rra.ru
2;0;Date
2;1;Time
2;2;JobId
2;3;Mode
2;4;Status
3;0;2007-07-08
3;1;01:00:01
3;2;1,814
3;3;Incremental backup
3;4;Completed successfully
4;0;2007-07-08
4;1;01:00:01
4;2;1,814
4;3;Incremental backup
4;4;Completed successfully

и так далее по мере поступления данных в dynamic.log. причем данные относительно объекта BackupMSB должны строго добавлятся к BackupMSB, а BackupSsw_A к BackupSsw соответственно. И еще если в dynamic.log падает неизвестный объект, например:
BackupServer;2007-07-08;01:00:01;Incremental backup;Completed successfully
то в static.log должен создаваться соответствующий раздел, начинающийся с нуля. в частности:
BackupServer
0;0;Backup Object: BackupServer
1;0;Host name: BackupServer
2;0;Date
2;1;Time
2;2;JobId
2;3;Mode
2;4;Status
3;0;2007-07-08
3;1;01:00:01
3;2;1,814
3;3;Incremental backup
3;4;Completed successfully
полностью задачу за себя решить не прошу. но дайте хотя бы вектор? с чего начать решать? и какой алгоритм тут можно придумать?

Ответить | Сообщить модератору

perl вопрос парсинга, phpcoder, 14:16 , 12-Июл-07 (1)
[...]
>полностью задачу за себя решить не прошу. но дайте хотя бы вектор?
>с чего начать решать? и какой алгоритм тут можно придумать?
Если я правильно понял задачу...
После добавления записи в static.log файл dynamic.log удаляется? Или нет? Если нет, то будет сложнее.
Примерно представляю себе так:
Считать файл dynamic.log построчно, при этом разбить каждую строку на части, в качестве разделителя использовать точку с запятой и всё это сохранить в переменную. Если строки всегда две, то можно прям завести два массива и в них складывать. Массивы сделать ассоциативными, а названия полей есть в static.log
Затем открыть static.log и для каждой из двух секций: найти посленюю запись и узнать её номер. Дописать новые данные, увеличив предыдущий номер на один.
Примерно так. Я бы, наверное, это на awk'е писал. Хотя перл тут конечно вам должен сослужить хорошую службу..
Ответить | Сообщить модератору

perl вопрос парсинга, close, 14:33 , 12-Июл-07 (3)
dynamic.log удаляется, да.
в нем, к сожалению, не всегда две строки, может быть больше или, как минимум, 1 строчка.
спасибо, за совет, в общем. сейчас попробую реализовать. не запутаться бы с циклами только :)
Ответить | Сообщить модератору

perl вопрос парсинга, phpcoder, 14:42 , 12-Июл-07 (4)
Вот к примеру, так можно на awk'е сделать:
[c0der@rock ~/parse]$ awk -F';' -v NUM=4 '{printf("%d;0;%s\n%d;1;%s\n%d;2;1,%d\n%d;3;%s\n%d;4;%s\n", NUM, $2, NUM, $3, NUM, ($1=="BackupMSB" ? 813 : 814), NUM, $4, NUM, $5)}' dynamic.log
4;0;2007-07-08
4;1;01:00:00
4;2;1,813
4;3;Incremental backup
4;4;Completed successfully
4;0;2007-07-08
4;1;01:00:01
4;2;1,814
4;3;Incremental backup
4;4;Completed successfully
В результате мы получаем 8 строчек: первые четыре нужно добавить в секцию BackupMSB, а вторые в BackupSsw_A. Секция уже имеет номер, которые можно передать в командой строке.
Значит осталось ещё два шага: получить номер секции. Потом передать этому скрипту. Потом вставить в static.log в конец первой секции 4 строчки этого вывода, а другие четыре строчки в конец второй секции.

Ответить | Сообщить модератору

perl вопрос парсинга, idle, 14:21 , 12-Июл-07 (2)

>есть 2 файла:
>
>dynamic.log
>static.log
>
>полностью задачу за себя решить не прошу. но дайте хотя бы вектор?
>с чего начать решать? и какой алгоритм тут можно придумать?
@static_log = split(/;/, $dynamic_log);
Ответить | Сообщить модератору