The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"perl вопрос парсинга"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"perl вопрос парсинга"  
Сообщение от close email on 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

полностью задачу за себя решить не прошу. но дайте хотя бы вектор? с чего начать решать? и какой алгоритм тут можно придумать?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "perl вопрос парсинга"  
Сообщение от phpcoder email(??) on 12-Июл-07, 14:16 
[...]
>полностью задачу за себя решить не прошу. но дайте хотя бы вектор?
>с чего начать решать? и какой алгоритм тут можно придумать?

Если я правильно понял задачу...

После добавления записи в static.log файл dynamic.log удаляется? Или нет? Если нет, то будет сложнее.

Примерно представляю себе так:

Считать файл dynamic.log построчно, при этом разбить каждую строку на части, в качестве разделителя использовать точку с запятой и всё это сохранить в переменную. Если строки всегда две, то можно прям завести два массива и в них складывать. Массивы сделать ассоциативными, а названия полей есть в static.log

Затем открыть static.log и для каждой из двух секций: найти посленюю запись и узнать её номер. Дописать новые данные, увеличив предыдущий номер на один.

Примерно так. Я бы, наверное, это на awk'е писал. Хотя перл тут конечно вам должен сослужить хорошую службу..

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

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

спасибо, за совет, в общем. сейчас попробую реализовать. не запутаться бы с циклами только :)

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "perl вопрос парсинга"  
Сообщение от phpcoder email(??) on 12-Июл-07, 14:42 
Вот к примеру, так можно на 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 строчки этого вывода, а другие четыре строчки в конец второй секции.


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "perl вопрос парсинга"  
Сообщение от idle (ok) on 12-Июл-07, 14:21 

>есть 2 файла:
>
>dynamic.log
>static.log
>
>полностью задачу за себя решить не прошу. но дайте хотя бы вектор?
>с чего начать решать? и какой алгоритм тут можно придумать?

@static_log = split(/;/, $dynamic_log);

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру