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");}
                   };

阅读更多
个人分类: zj-脚本
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

perl 监控每个ip的连接数

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭