perl统计日志文件ip及数量
1、先查看下日志的格式："1.162.50.56, 19.97.154.15" - - "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、代码
[*]#!/usr/bin/perl
[*]my %totalip;
[*]my $key;
[*]my $ip1 = '';
[*]
[*]sub hashValueIp {
[*] $totalip{$b}$totalip{$a};
[*]}
[*]
[*]while(){
[*] chomp;
[*] ($ip1) = /^"(.*?)"/;
[*] my @ips = split(/, /,$ip1);
[*] foreach my $index (0..$#ips){
[*] $totalip{$ips[$index]}++;
[*] }
[*] }
[*]print "ip address count \n";
[*]foreach $key (sort hashValueIp(keys %totalip)){
[*] print $key." ".$totalip{$key}."\n";
[*]}
6行：构建子函数，使得输出按照ip的次数进行排序；
12行：这里的?是去除*匹配符的贪婪性，即可以获取第一对""之间的ip地址；
15行：统计ip数
输出：
[*]ip address count
[*]18.44.95.1346466
[*]19.7.154.16 5323
[*]19.7.154.15 4811
[*]19.53.48.2 574
[*]14.193.167.1 290
[*]17.0.0.1 172
[*]21.6.3.77 114
页:
[1]