ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     04 Jun 2001  09:18:20
 To : Sergey Okhotny
 Subject : Re: помогите с regexp
 -------------------------------------------------------------------------------- 
 

 Sergey Okhotny <Sergey.Okhotny@p2.f768.n463.z2.fidonet.org> wrote:
 
 SO>                           Пpивет All!
 SO> 
 SO> имеем такой скpипт:
 SO> 
 SO> open(fq,"$wgetlog") || print "!!! Can't Open WGetLogFile ($filequery)";
 SO> 
 SO> while (<fq>){
 SO> ($time,$url,$size,$name)=/^(\d+:\d+:\d+) URL:(\S+) [(\S+)] ->"(\S+)" [\d]$/;
 SO> print "$time: from $url downloaded $size bytes to $name\n";
 SO> }
 SO> 
 SO> А лог такого вида
 SO> 15:45:39 URL:http://127.0.0.3:80/apache.rar [3028282/3028282] ->
 SO> "apache.rar.1" [1] 15:45:39 URL:http://127.0.0.3:80/index.html [1852/1852]
 SO> -> "index.html.1" [1] 15:45:40 URL:http://127.0.0.3:80/guest.php4 [669] ->
 SO> "guest.php4.1" [1] 15:45:40 URL:http://127.0.0.3:80/guest.phtml [669] ->
 SO> "guest.phtml.1" [1]
 
   ($time,$url,$size,$name) =
 (m|^(\d\d:\d\d:\d\d)\s+URL:(\S+)\s+\[\S+\]\s+->\s+"(\S+)"\s+\[(\d+)]$|);
 
                   wbw,artur
 
 -- 
 Когда его ударили ножом, он уткнулся в грудь гражданке А.,
 из-за чего, собственно, и началась драка.
 --- ifmail v.2.15dev5
  * Origin: Sonera Ltd. (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    помогите с regexp   Sergey Okhotny   03 Jun 2001 19:49:16   Re: помогите с regexp   Artur Penttinen   04 Jun 2001 09:18:20   Re: помогите с regexp   Alexander Babanov   04 Jun 2001 20:56:00   Re: помогите с regexp   Yuriy Kaminskiy   05 Jun 2001 15:34:43