The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

rexx


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

_ RU.UNIX.BSD (2:5077/15.22) _____________________________________ RU.UNIX.BSD _
 From : Igor Sysoev                         2:5020/400      02 Aug 99  13:11:36 
 Subj : Re: rexx                                                                
________________________________________________________________________________
From: "Igor Sysoev" <igor@nitek.ru>

Andrey Lavrentyev wrote in message <7o1it1$hdk$1@jicom.jinr.ru>...

>>>зы: а инструментарий неплохой :) пока под пополамой сидел - всякойлабуды
на
>> нем
>>>понаписал, ломы переделывать на чем-то другом :) особенно классно на нем
>>>текстовые файлы разбирать - логи всякие... брат как-то приволок результат
>
>> Hеужели лучше, чем на перле ?
>однозначно, с одним но что я сравниваю с тем REXX'ом что был в VM/SP.
>Сейчас и не упомню на чем из двух начал раньше писать "CC" or "REXX", ибо
>нас в ту пору в институте пичкали pl/1 & fortran.
> Так для меня "новые интерпретатор и компилятор" были как бальзам, оба
>структурированные, блеск.


О как - однозначно. Интересно, чем же однозначно ? Для предметности
обсуждения, возмем лог апачи и вытащим из него хосты и урлы
к которым эти хосты обращалсиь, при условии, что броузер у там
"Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)"
Одна строка из лога выглядит примерно так:

igor.nitek.ru - - [02/Aug/1999:12:55:39 +0400]
"GET /~igor/ HTTP/1.1" 200 5238 "-"
"Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)"
"www.nitek.ru" "-"

Скрипт, который делает описанную выше задачу:

$LOG = '^(\S+) \S+ \S+ \[([^\]]+)\] "([^"]+)" ' .
       '(\S+) (\S+) "([^"]+)" "([^"]+)" "([^"]+)" "([^"]+)"\r?$' ;

while (<>) {
  if (($host, $date, $url, $res, $size,
       $ref, $agent, $www, $forward) = /$LOG/o) {
    print "$host, $url\n" if
      $agent =~ m{^Mozilla/4.0 \(compatible; MSIE 4.01; Windows NT\)$} ;
  }
}

Как это будет выглядет на рексе ?

С уважением,
Игорь Сысоев
http://www.nitek.ru/~igor/


--- ifmail v.2.14dev3
 * Origin: NITEK Corporation (2:5020/400)

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>



Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2022 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру