use 5.010; while(<>){ my @llog=split; $ips{$llog[0]}++; } for(keys %ips){ say "$_ $ips{$_}"; }
perl统计http日志ip
原创
©著作权归作者所有:来自51CTO博客作者鬼魂儿的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:scp加倍传输
下一篇:cp和mv的简便用法
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
tomcat日志文件 访问IP统计
tomcat日志文件 访问IP统计
tomcat 日志 文件 访问 -
http配置安装和部署Awstats统计Http访问日志
http服务配制及相关内容
主机 服务器 客户端 软件包 统计