perl - очистка данных (help)

kusok · Сообщение **kusok** » 29.03.2006 16:37

Имеется такой кусок текстового файла:

 Tue Mar 28 21:25:23 2006
 Tue Mar 28 22:00:59 2006
 Tue Mar 28 22:00:59 2006
 Tue Mar 28 22:09:42 2006
 Errors in file d:\oracle\admin\jvl\udump\jvl_j000_687.trc:
 ORA-12012: ошибка при автоисполнении задания 90
 ORA-01418: заданного индекса не существует
 ORA-06512: на  "DBO.PCK_ADMIN", line 462
 ORA-06512: на  line 1
 Tue Mar 28 22:09:42 2006
 Tue Mar 28 22:09:42 2006
 Tue Mar 28 22:09:42 2006
 Tue Mar 28 22:14:09 2006
 Tue Mar 28 22:14:09 2006
 Tue Mar 28 22:14:09 2006
 Tue Mar 28 22:14:09 2006
 Wed Mar 29 02:42:06 2006
 Errors in file d:\oracle\admin\jvl\udump\jvl_j000_687.trc:
 ORA-12012: ошибка при автоисполнении задания 90
 ORA-01418: заданного индекса не существует
 ORA-06512: на  "DBO.PCK_ADMIN", line 462
 ORA-06512: на  line 1
 Wed Mar 29 04:04:44 2006
 Wed Mar 29 04:04:44 2006
 Wed Mar 29 09:13:04 2006
 Wed Mar 29 09:13:04 2006

Как бы это дело обработать, чтобы осталось следующее?

Код: Выделить всё

 Tue Mar 28 22:09:42 2006
 Errors in file d:\oracle\admin\jvl\udump\jvl_j000_687.trc:
 ORA-12012: ошибка при автоисполнении задания 90
 ORA-01418: заданного индекса не существует
 ORA-06512: на  "DBO.PCK_ADMIN", line 462
 ORA-06512: на  line 1

 Wed Mar 29 02:42:06 2006
 Errors in file d:\oracle\admin\jvl\udump\jvl_j000_687.trc:
 ORA-12012: ошибка при автоисполнении задания 90
 ORA-01418: заданного индекса не существует
 ORA-06512: на  "DBO.PCK_ADMIN", line 462
 ORA-06512: на  line 1

Вообще, нужен именно алгоритм обработки, уже полдня думаю, никак придумать не могу. Есть идеи?

madskull · Сообщение **madskull** » 29.03.2006 16:51

Обязательно перл? Грепом очень просто:

Код: Выделить всё

grep -B1 -A4 'Errors in file' file

madskull · Сообщение **madskull** » 29.03.2006 17:05

можно и на перле, конечно.

Код: Выделить всё


perl -we 'while(<>){if($p){$p=/^ORA/and print or print"\n"}if(/^Errors/){$p=print$s}$s=$_}' file

Смысл - при появлении строки Errors выставляем флаг, что надо выводить последующие строки ($p) и вывести предыдущую строку, которую мы пихаем в $s на каждой итерации.
Когда встречается строка с ORA - выводим ее.
НЕ с ORA - выводим перевод строки и сбрасываем флаг.

kusok · Сообщение **kusok** » 29.03.2006 17:11

Да, перлом обязательно, т.к. это только малая часть всего действа

Плюс ещё надо обеспечить совсместимость с вендой.

2 madskull
Большое Спасибо!

sergius · Сообщение **sergius** » 29.03.2006 18:54

Код: Выделить всё

#!/usr/bin/perl -w

while (<>) {
    unless (/\d\d:\d\d:\d\d/) {
        /^Errors/? print "\n".$s.$_ : print $_;
        next;
    }
    $s = $_;
}

madskull · Сообщение **madskull** » 29.03.2006 21:12

sergius А если в описании ошибки (после ORA-...) будет время или что-то еще, попадающее под регексп \d\d:\d\d:\d\d ?

(а вообще так и хочется устроить перл-гольф

)

sergius · Сообщение **sergius** » 30.03.2006 10:33

madskull писал(а): ↑
29.03.2006 21:12
sergius А если в описании ошибки (после ORA-...) будет время или что-то еще, попадающее под регексп \d\d:\d\d:\d\d ?

"/^(\w){3} (\w){3} \d\d \d\d:\d\d:\d\d (\d){4}$/"

(а вообще так и хочется устроить перл-гольф )

Я за!

ЗЫ Вау! я набрал 500 постов B)

madskull · Сообщение **madskull** » 30.03.2006 11:05

sergius писал(а): ↑
30.03.2006 10:33

(а вообще так и хочется устроить перл-гольф )

Я за!

Тогда на:

Код: Выделить всё

while(<>){/^OR/&&print;/^E/&&print"\n".$s.$_;$s=$_}

Конечно, при условии, что в логах строки начинаются либо с даты, либо, при ошибке, со слова Error и ORA.

madskull · Сообщение **madskull** » 30.03.2006 11:15

Или, вообще без while, если запускать:

Код: Выделить всё

perl -wne '/^OR/&&print;/^E/&&print"\n".$s.$_;$s=$_' file

sergius · Сообщение **sergius** » 30.03.2006 12:29

Под виндой работать не будет. Надо так:

Никс:

Код: Выделить всё

perl -wne '/^OR/?print:/^E/&&print"\n$s$_";$s=$_' file

Вынь:

Код: Выделить всё

perl -wne "/^OR/?print:/^E/&&print\"\n$s$_\";$s=$_" file

Nab · Сообщение **Nab** » 31.03.2006 07:10

Попытка номер РАЗ:

Код: Выделить всё

perl -wne "s/^E/\n$s$&/&&print;/^O/&&print;$s=$_" file

Попытка номер ДВА:

Код: Выделить всё

perl -wne "(/^O/||s/^E/\n$s$&/)&&print;$s=$_" file

И еще -1

Код: Выделить всё

perl -wne "/^O/||s/^E/\n$s$&/?print:($s=$_)" file

sergius · Сообщение **sergius** » 31.03.2006 10:42

Nab писал(а): ↑
31.03.2006 07:10
Попытка номер РАЗ:
Код: Выделить всё
perl -wne "s/^E/\n$s$&/&&print;/^O/&&print;$s=$_" file
Попытка номер ДВА:
Код: Выделить всё
perl -wne "(/^O/||s/^E/\n$s$&/)&&print;$s=$_" file
И еще -1
Код: Выделить всё
perl -wne "/^O/||s/^E/\n$s$&/?print:($s=$_)" file

madskull · Сообщение **madskull** » 31.03.2006 10:44

Nab писал(а): ↑
31.03.2006 07:10
Попытка номер РАЗ:
Код: Выделить всё
perl -wne "s/^E/\n$s$&/&&print;/^O/&&print;$s=$_" file

Код: Выделить всё

[arena tmp]$ perl -wne "s/^E/\n$s$&/&&print;/^O/&&print;$s=$_" file
Unquoted string "file" may clash with future reserved word at -e line 1.
syntax error at -e line 1, near ";="
Execution of -e aborted due to compilation errors.
[arena tmp]$

Nab писал(а): ↑
31.03.2006 07:10
Попытка номер ДВА:
Код: Выделить всё
perl -wne "(/^O/||s/^E/\n$s$&/)&&print;$s=$_" file

Код: Выделить всё

[arena tmp]$ perl -wne "(/^O/||s/^E/\n$s$&/)&&print;$s=$_" file
Unquoted string "file" may clash with future reserved word at -e line 1.
syntax error at -e line 1, near ";="
Execution of -e aborted due to compilation errors.
[arena tmp]$

Nab писал(а): ↑
31.03.2006 07:10
И еще -1
Код: Выделить всё
perl -wne "/^O/||s/^E/\n$s$&/?print:($s=$_)" file

Код: Выделить всё

[arena tmp]$ perl -wne "/^O/||s/^E/\n$s$&/?print:($s=$_)" file
Unquoted string "file" may clash with future reserved word at -e line 1.
syntax error at -e line 1, near "(="
Execution of -e aborted due to compilation errors.
[arena tmp]$

Кроме того, на /^O/ может выловиться и Oct...

madskull · Сообщение **madskull** » 31.03.2006 10:56

Ой, забыл дописать:

Nab Вообще-то, конечно, здорово.

Nab · Сообщение **Nab** » 31.03.2006 11:01

Первым идет день недели, на сколько я понял....
хотя формат логов может быть конечно и изменен, но этого в условии не было...

Ну а по всем пунктам виноват однако, кавычки одинарные надоть

Код: Выделить всё

perl -wne '/^O/||s/^E/\n$s$&/?print:($s=$_)' file

PS: Ой забыл ответить, спасибо конешно

sergius · Сообщение **sergius** » 31.03.2006 11:15

madskull писал(а): ↑
31.03.2006 10:44
Кроме того, на /^O/ может выловиться и Oct...

Я тоже об этом подумал, но первый - неделя. Никуда не денешься.

Nab писал(а): ↑
31.03.2006 11:01
Ну а по всем пунктам виноват однако, кавычки одинарные надоть

Одинарные кавычки не будут работать в винде. По условию должна работать и в линуксе, и в винде!
Такчто тут два варианта. С одинарными и двойными

Nab · Сообщение **Nab** » 31.03.2006 11:21

sergius писал(а): ↑
31.03.2006 11:15
Nab писал(а): ↑
31.03.2006 11:01

Ну а по всем пунктам виноват однако, кавычки одинарные надоть

Одинарные кавычки не будут работать в винде. По условию должна работать и в линуксе, и в винде!
Такчто тут два варианта. С одинарными и двойными

Ну в принципе эт не важно, скорей всего это будет в файл заворачиваться, то есть в while, а там кавычки будут одинаковые - фигурные

sergius · Сообщение **sergius** » 31.03.2006 14:42

Мда, короче не могу придумать

Можно (наверно) объявить победителя! Nab

ЗЫ Может еще что-нить распарсим?

Nab · Сообщение **Nab** » 31.03.2006 23:10

sergius писал(а): ↑
31.03.2006 14:42
Мда, короче не могу придумать

Можно (наверно) объявить победителя! Nab

Может не стоит спешить, народ у нас талантливый...

sergius писал(а): ↑
31.03.2006 14:42
ЗЫ Может еще что-нить распарсим?

Да пожалста, а кто задачку придумает?

unixforum.org

perl - очистка данных (help)

perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных

Re: perl - очистка данных