这个正则表达式咋写？

Archie.Chen

219.130.136.90 2004-04-20 15:20:18 - rtsp://real1.myp.net:554/rmserver1/mtvtop_24/twins4/004.rm - 4 rtsp://real1.myp.net:554/rmserver1/mtvtop_24/twins4/004.rm 500 00000000-0000-0000-0000-000000000000 6.0.9.2006 zh-cn RealMedia_Player - - - win32 - 586_axembed 238 - 6834 RTSP UDP 519800 2858 7 47838 0 69 DIRECT/210.51.190.187 0 - [20/Apr/2004:23:20:18 +0800] REAL 0 0 SESSION_WRITE(2205515.1561) 425712 1082474418.228 192.168.1.51 real1.mtvtop.net - CACHE


能解析出以下内容:
219.130.136.90
rtsp://real1.myp.net
500
00000000-0000-0000-0000-000000000000
RTSP
UDP
7
47838
REAL
1082474418.228
CACHE

Perl小手

建议先用‘-’做split后再用正则表达式匹配。
$str =~ /^(\d{3}\.\d{3}\.\d{3}\.\d{2}) \d{4}-\d{2}-\d{2}.*(rtsp:\/\/real1\.myp\.net).*(rtsp:\/\/real1\.myp\.net).*(\d+)\s(\d+-\d+-\d+-\d+-\d+).*win32\s-\w+\s+\d+\s+-\s+\d+\s+(\w+)\s+(\w+)\s+\d+\s+\d+\s+(\d+)\s+(\d+)\s+.*\[.*\]\s+(\w+)\s+.*\(.*\).*(\d+\.\d+).*(\w+)$/;

Archie.Chen

'-' 的数量和位置不是固定的哦。而且SESSION_WRITE(2205515.1561)可能会是SESSION_WRITE(2205515.1561  clint－ip 4654)的格式。

roby

Perl小手

还是先用‘-’分割后再匹配比较简单。 把复杂的数据结构转成简单的数据格式。