perl統計日志檔案ip及數量

1、先檢視下日志的格式：

"1.162.50.56, 19.97.154.15" - - [04/Mar/2012:10:15:33 +0800] "GET /book/12688.html HTTP/1.0" 200 48407 "http://www.baidu.com/" "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; GTB6.4; znwb6500; .NET CLR 1.1.4322; CIBA; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; AskTbPTV2/5.9.1.14019)" "287000"

這裡的ip位址可能是1個或多個；

2、代碼

6行：建構子函數，使得輸出按照ip的次數進行排序；

12行：這裡的?是去除*比對符的貪婪性，即可以擷取第一對""之間的ip位址；

15行：統計ip數

輸出：