perl 正则分组 或
2016-02-06 08:18
295 查看
jrhmpt01:/tmp# cat sum.pl open (LOG ,"<","tmp.out"); while (<LOG>) { chomp; ##10.171.246.184 - - [05/Feb/2016:20:32:50 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 180.120.21.62 #10.171.246.184 - - [05/Feb/2016:20:46:24 +0800] "GET /web/noauth?method=%2Fnotice%2Fpage&type=1&pageNum=1&pageSize=5&_=1454676377831 HTTP/1.1" 200 1134 0.032 122.234.182.28 if ($_ =~ /.*\s+"(POST|GET)\s*(.*?)\s*HTTP.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/){ print "\$1 is $1\n"; $url=$2; print "\$url is $url\n"; $ip=$3; print "\$ip is $ip\n"; $var=$url.$ip; $hash{$var}++; }} while(my($ip, $times) = each %hash) { print "$ip access count(*) == $times\n"; }; jrhmpt01:/tmp# cp tmp.out tmp.out.bak jrhmpt01:/tmp# vim tmp.out jrhmpt01:/tmp# perl sum.pl $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is GET $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 $1 is POST $url is /web/sendregistersmscode $ip is 117.149.104.182 /web/sendregistersmscode117.149.104.182 access count(*) == 10 jrhmpt01:/tmp# cat tmp.out 10.252.142.174 - - [06/Feb/2016:08:05:13 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.000 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:13 +0800] "GET /web/sendregistersmscode HTTP/1.1" 200 49 0.000 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:19 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:23 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:24 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:29 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:34 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:35 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:37 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.002 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:51 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 jrhmpt01:/tmp# grep 117.149.104.182 tmp.out 10.252.142.174 - - [06/Feb/2016:08:05:13 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.000 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:13 +0800] "GET /web/sendregistersmscode HTTP/1.1" 200 49 0.000 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:19 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:23 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:24 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:29 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.252.142.174 - - [06/Feb/2016:08:05:34 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:35 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:37 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.002 117.149.104.182 10.171.246.184 - - [06/Feb/2016:08:05:51 +0800] "POST /web/sendregistersmscode HTTP/1.1" 200 49 0.001 117.149.104.182
相关文章推荐
- LeetCode——Combinations
- 了解网络底层信息
- hdu 1848 Fibonacci again and again
- java国际化——资源包
- 一起talk C栗子吧(第一百二十一回:C语言实例--线程知识体系图)
- 一个精简服务器
- PHP 中的防御性编程
- aix平台安装10.2.0.5的CRS时遇到的bug
- Lua笔记
- macos10.8.5原版系统dmg转iso
- 高效操作字串的String Reference类
- 有时间时可以做个基于OSGEARTH的产品
- Cowboy.WebSockets 开源 WebSocket 网络库
- 何时使用static类(工具类)
- Git幕后的“故事”
- Git幕后的“故事”
- 快速排序
- 我与小娜(06):量子通信是什么?
- 金鳞通讯呼叫中心及企业融合通信产品系列
- HDU 5595 GTW likes math