标签：统计 perl
use 5.010; while(<>){ my @llog=split; $ips{$llog[0]}++; } for(keys %ips){ say "$_ $ips{$_}"; }
perl统计http日志ip
原文地址：http://liuyuan.blog.51cto.com/740753/1775045
