看板 Perl 關於我們 聯絡資訊
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