Как настроить LWP

[koder20005]

Как настроить LWP:UserAgent
так, чтобы на сайте остался след не скрипта посявшего сайт, а пользователя через браузер??

[arto]

какой именно след? ip?

[koder20005]

Referer, и т.д.

[arto]

что непонятно в perldoc LWP::UserAgent ?

[koder20005]

нет мне нужны значения, которые похожи на пользователей.
 Типо этого
Opera/9.20 (Windows NT 5.1; U; ru)

[arto]

sort -u /var/log/httpd/agent_log

[koder20005]

Выводит содержимое всего файла, а не Refer.

[arto]

1. referer а не refer
2. user-agent, "Opera/9.20 (Windows NT 5.1; U; ru)" в referer быть не может.

[koder20005]

А мне нужно, чтобы была инфорация только откуда пришли..

[arto]

обясните подробнее, что надо

[koder20005]

213.141.137.138 - - [08/May/2007:01:46:11 +0400] "GET / HTTP/1.1" 200 2529 "http://www.rambler.ru/srch?words=%F6%E5%ED%F2%F0+%F1%E0%E4%EE%E2%EE%E4%F1%F2%E2%E0&old_q=%F1%E0%E4%EE%E2%EE%E4%ED%E8%F7%E8%F1%EA%E8%E9+%F6%E5%ED%F2%F0&btnG=%CD%E0%E9%F2%E8%21" "Opera/9.10 (Windows NT 5.1; U; ru)"

Это у меня находится в файле, мне надо извлекать
такие вот строки
http://www.rambler.ru/srch?words=%F6%E5%ED%F2%F0+%F1%E0%E4%EE%E2%EE%E4%F1%F2%E2%E0&old_q=%F1%E0%E4%EE%E2%EE%E4%ED%E8%F7%E8%F1%EA%E8%E9+%F6%E5%ED%F2%F0&btnG=%CD%E0%E9%F2%E8%21

[arto]

\\S+\\s+\\S+\\s+\\S+\\s+.{28}\\s+"[^"]*"\\s+\\d+\\s+\\d+\\s+"([^"]+)"

[koder20005]

Я использую use Apache::LogRegex;
почему то это не прокатывает
eval { $lr = Apache::LogRegex->new("%h %l %u %t \\"%r\\" %>s %b \\"%{Referer}i\\" \\"%{User-Agent}i\\"") };

[arto]

print $lr->regex и сравните

[koder20005]

Вот что выдало (?-xism:^(\\S*) (\\S*) (\\S*) (\\[[^\\]]+\\]) (\\S*) (\\S*) (\\S*) (\\S*) (\\S*) (\\S*) (\\S*)$)

А как подогнать...