Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # читаем логов рабочих процессов
- cat rphost*/*.log |
- # удаляем BOM
- perl -pe 's/\xef\xbb\xbf//g' |
- # заменяем символ перевода строки на @
- perl -pe 's/\n/@/g' |
- # заменяем пробельные символы на пробел
- perl -pe 's/\s/ /g' |
- # заменяем ,Sql= на <MARKER>
- perl -pe 's/,Sql=/<MARKER>/g' |
- # заменяем ,Context= на <MARKER>
- perl -pe 's/,Context=/<MARKER>/g' |
- # собираем уникальные запросы без контекста в массиве, а потом выводим их
- gawk -F'<MARKER>' -vRS='[0-9]+:[0-9]+.[0-9]+-[0-9]+' '/.+/{if ($3=="") Queries[$2]+=1} END {for (Query in Queries) print Query}' |
- # заменяем @ на символ перевода строки
- perl -pe 's/@/\n/g' > DBMSSQLWithoutContext.txt
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement