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

[arto]

вам шашечки, или ...?

perldoc -m Apache::LogRegex

[koder20005]

Блин посоветуй компонент, чтобы парсить access_log

[arto]

регулярное выражение написал -- что еше надо?

[arto]

btw, если посмотреть в исходник, то хватит q|...| в new

[koder20005]

Все ок подошло..Спасибо..

[koder20005]

Мне кажется здесь не правильно
\\S+\\s+\\S+\\s+\\S+\\s+.{28}\\s+"[^"]*"\\s+\\d+\\s+\\d+\\s+"([^"]+)"

[arto]

# perl -de0
  DB<1> $a = q|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)|

  DB<2> p $a
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)
  DB<3> p $a =~ m#\\S+\\s+\\S+\\s+\\S+\\s+.{28}\\s+"[^"]*"\\s+\\d+\\s+\\d+\\s+"([^"]+)"#
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
  DB<4>

[koder20005]

может вместо этого .*?

[arto]

не расскажите, что это означает в данном контексте?
и почему мое выражение вас не устраивает?

[koder20005]

.{28} Пропустить 28 символов, но там может быть больше, а .*?
это все остально до конца строки т.е. useragent.
Вот что получилось, нормально

open(F1,"D:/access_log") or die $!;
while ($line = ) {
      if ($line =~m/\\S+ \\S+ \\S+ .*? "[^"]*" \\d+ \\d+ "([^"]+)"/) {
        $ref = $1;
      }
}
close(F1) or die $!;

[arto]

больше, чем в "[08/May/2007:01:46:11 +0400]" ?

это где такое случается?

[koder20005]

"[08/September/2007:01:46:11 +0400]"

[arto]

это где такое случилось?

[koder20005]

А разве не случится в будущем?

[arto]

с какой вероятностью?