perl 监控每个ip的连接数

###监控CPU idle 和交换分区
    §ion("TCP INFO");
     my @array=`netstat -na | grep ^tcp | grep 443`;
    foreach my $i (@array) {
    my $ip;
        chomp $i;
        $var=(split(/\s+/,"$i"))[4];
        $ip =(split(/:/,"$var"))[0];
         $log{$ip}++;
    };
  while(my($ip, $times) = each %log) {
                   print "$ip establish 11.4.16.5:443 port's connections is   $times\n";
                   if ($times >= 100 ){ send_mail('zhjian@zjcap.cn',"$ip establish  121.40.116.25:443 

port's connections is   $times\n");}
                   };