作者Blackschafe (另一个西普)
看板perl
标题[问题] 有关搜寻的问题
时间Mon May 29 17:17:05 2006
127.0.0.1 - - [20/Jan/2006:12:17:19 +0800] "GET /~ckhung/ HTTP/1.1" 200 8321 "-"
"Mozilla/5.0 (X11; U; Linux i686; zh-TW; rv:1.8) Gecko/20051111 Firefox/1.5"
127.0.0.1 - - [20/Jan/2006:12:19:18 +0800] "GET /~ckhung/ HTTP/1.1" 200 8321 "-"
"Mozilla/5.0 (X11; U; Linux i210.71.85.66 - - [20/Jan/2006:12:00:14 +0800] "GET
/ HTTP/1.0" 200 6982 "-" "-"
127.0.0.1 - - [20/Jan/2006:12:17:19 +0800] "GET /~ckhung/ HTTP/1.1" 200 8321 "-"
"Mozilla/5.0 (X11; U; Linux i686; zh-TW; rv:1.8) Gecko/20051111 Firefox/1.5"
127.0.0.1 - - [20/Jan/2006:12:19:18 +0800] "GET /~ckhung/ HTTP/1.1" 200 8321 "-"
686; zh-TW; rv:1.8) Gecko/20051111 Firefox/1.5"
我如果有这些资料，而我只想要找到所用的是什麽browser的话我该怎麽写?
我现在的问题是，不知道怎麽找後面的资料，不知道从何下手，如果是在最前
面的话，我还行，但是中间跳过一堆东西我就不会了@@"
#!usr/bin/perl -w
use strict;
while (<>){
print "$1\n" if( $_ =~ m/(\d+(\.\d+)(\.\d+)(\.\d+))/)
};
我写到这样而已…
请大大帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.223.211.253
1F：→ hoyohoyo:试试 /\s+(\S+\/\S+)"$/ 05/31 01:53
2F：→ hoyohoyo:你老师有讲 要注意听~ 05/31 01:55