Top Contexts

# cat: читаем
# perl: удаляем BOM, потом заменяем
#   — переводы строк на @
#   — пробельные символы на пробелы
#   ,DBMSSQL, на <SEPARATOR>
#   ,Context= на <SEPARATOR>
# gawk: суммируем продолжительность и количество выполнений по контекстам
# sort: сортируем контексты по продолжительности
# head: берем первые 5 записей
# perl: заменяем @ на переводы строк

cat rphost*/*.log | perl -pe 's/\xef\xbb\xbf//g; s/\n/@/g; s/\s/ /g; s/,DBMSSQL,/<SEPARATOR>/g; s/,Context=/<SEPARATOR>/g' | gawk -F'<SEPARATOR>' -vRS='[0-9]+:[0-9]+.[0-9]+-' '/.+/{Dur[$3]+=$1; Execs[$3]+=1} END {for (i in Dur) print Dur[i] "=Duration," Execs[i] "=Execs," i }' | sort -rnb | head -n 5 | perl -pe 's/@/\n/g' > top_5_contexts.txt