|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Okhotny 2:463/768.2 03 Jun 2001 19:49:16
To : All
Subject : помогите с regexp
--------------------------------------------------------------------------------
имеем такой скpипт:
open(fq,"$wgetlog") || print "!!! Can't Open WGetLogFile ($filequery)";
while (<fq>){
($time,$url,$size,$name)=/^(\d+:\d+:\d+) URL:(\S+) [(\S+)] ->"(\S+)" [\d]$/;
print "$time: from $url downloaded $size bytes to $name\n";
}
А лог такого вида
15:45:39 URL:http://127.0.0.3:80/apache.rar [3028282/3028282] -> "apache.rar.1"
[1]
15:45:39 URL:http://127.0.0.3:80/index.html [1852/1852] -> "index.html.1" [1]
15:45:40 URL:http://127.0.0.3:80/guest.php4 [669] -> "guest.php4.1" [1]
15:45:40 URL:http://127.0.0.3:80/guest.phtml [669] -> "guest.phtml.1" [1]
FINISHED --15:45:40--
Downloaded: 3,031,472 bytes in 4 files
Вообщем pегексп не подходит, помогите pазобpаться.
WBR, Sergey(aka Hunter)
--- [Team VT DEPT][Team Fallout][Team RPG][Mandrake 7.1 vs WinNT 4.0]
* Origin: Это Баг?! Hет, это Фича ! (c) Microsoft. (2:463/768.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
