perl统计日志文件ip及数量

发布时间：2020-12-16 00:27:24 所属栏目：大数据来源：网络整理

导读：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 C

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、代码

 
 
#!/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.134??6466 ?
  
  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?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!