作者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
→ hoyohoyo:試試 /\s+(\S+\/\S+)"$/ 05/31 01:53
→ hoyohoyo:你老師有講 要注意聽~ 05/31 01:55