Исходное сообщение
"OpenNews: Интересное ПО: LightSquid - анализатор логов для s..." Отправлено Berserker, 19-Апр-05 20:36
>прикольная идея, подумаю, может добавть ;-)) лишь бы потом на тебя в суд не подали :\ пример работы : cat access.log | ./sq_aa >> qu.txt получаются строки  вида Sun Apr 17 13:35:18 2005 192.0.0.115 yandex 'ЗЗаппросс' файл qu.txt смотреть браузером, так как запросы в разных кодировках (кои\вин\утф) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #!/usr/bin/perl while (<STDIN>)     {     $type='';     if (/GET http\:\/\/www\.yandex\.ru\/yandsearch\?/) {$type='yandex'}     elsif (/GET http\:\/\/search\.rambler\.ru\/srch\?/) {$type='rambler'}     elsif (/GET http\:\/\/search.tut.by\/\?/) {$type='tut'}     elsif (/GET http\:\/\/www\.google\..*\/search\?/) {$type='google'}     elsif (/GET http\:\/\/an\.aport\.ru\/scripts\/template\.dll\?/) {$type='aport'}     else {next}     s!\s+! !g;     @a=split/ /;     foreach $i ((split '&',$a[6]))         {         if (             (($type eq 'yandex')&&($i=~/^text=(.*)$/))||             (($type eq 'aport')&&($i=~/^r=(.*)$/))||             (($type eq 'rambler')&&($i=~/^q=(.*)$/))||             (($type eq 'rambler')&&($i=~/^words=(.*)$/))||             (($type eq 'rambler')&&($i=~/^old_q=(.*)$/))||             (($type eq 'tut')&&($i=~/^query=(.*)$/))||             (($type eq 'google')&&($i=~/^q=(.*)$/))             )             {             $q=$1;             $q=~s/\+/ /g;             $q=~s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge;             print localtime($a[0])." $a[2] $type \'$q\'\n";             }         }     } ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>прикольная идея, подумаю, может добавть ;-)) > лишь бы потом на тебя в суд не подали :\ > пример работы : > cat access.log | ./sq_aa >> qu.txt > получаются строки вида > Sun Apr 17 13:35:18 2005 192.0.0.115 yandex 'ЗЗаппросс' > файл qu.txt смотреть браузером, так как запросы в разных кодировках (кои\вин\утф) > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > #!/usr/bin/perl > while (<STDIN>) > { > $type=''; > if (/GET http\:\/\/www\.yandex\.ru\/yandsearch\?/) {$type='yandex'} > elsif (/GET http\:\/\/search\.rambler\.ru\/srch\?/) {$type='rambler'} > elsif (/GET http\:\/\/search.tut.by\/\?/) {$type='tut'} > elsif (/GET http\:\/\/www\.google\..*\/search\?/) {$type='google'} > elsif (/GET http\:\/\/an\.aport\.ru\/scripts\/template\.dll\?/) {$type='aport'} > else {next} > s!\s+! !g; > @a=split/ /; > foreach $i ((split '&',$a[6])) > { > if ( > > (($type eq 'yandex')&&($i=~/^text=(.*)$/))|| > > (($type eq 'aport')&&($i=~/^r=(.*)$/))|| > > (($type eq 'rambler')&&($i=~/^q=(.*)$/))|| > > (($type eq 'rambler')&&($i=~/^words=(.*)$/))|| > > (($type eq 'rambler')&&($i=~/^old_q=(.*)$/))|| > > (($type eq 'tut')&&($i=~/^query=(.*)$/))|| > > (($type eq 'google')&&($i=~/^q=(.*)$/)) > > ) > > { > > $q=$1; > > $q=~s/\+/ /g; > > $q=~s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge; > > print localtime($a[0])." $a[2] $type \'$q\'\n"; > > } > } > } > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	Введите код, изображенный на картинке: