perl统计IP访问脚本

借朋友的原脚本在这个基上改了改，这脚中的hash让我觉得有点头痛，呵呵

不过用处蛮大的

#!/usr/bin/perl

use strict;

my @a;

my %count;

my $key;

local $_;

open FH,"aa" or die "cannot open file aa:$!\n";#从文件aa中取数据

foreach(<FH>){

chomp($_);#去除\n

@a=split (' ',$_,2);#这里是取出需要统计的ＩＰ之类的数据，视自己情况改值

#print $a[1],"\n";

$count{$a[1]}++;#这里是对取到的值进行统计，之后赋于hash

}

printf "%-10s%-6s\n","value","times";#格式化输出

print "-" x 20,"\n";

foreach $key ( sort keys %count) {

printf "%-10s%-6s\n",$key,$count{$key} if $key ne '';#打印出值，如果有空值不打印

}