форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

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

Сообщение от close 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 (??) on 12-Июл-07, 14:16

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

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

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

	4. "perl вопрос парсинга"
	Сообщение от phpcoder (??) 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]