4591566 发表于 2018-8-30 10:58:52

perl统计http日志ip

use 5.010;　　
while(){
　　
      my @llog=split;
　　
      $ips{$llog}++;
　　
}
　　
for(keys %ips){
　　
      say "$_ $ips{$_}";
　　
}


页: [1]
查看完整版本: perl统计http日志ip