关闭

perl 监控每个ip的连接数

356人阅读 评论(0) 收藏 举报
分类:
###监控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");}
                   };

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1297552次
    • 积分:40217
    • 等级:
    • 排名:第99名
    • 原创:2859篇
    • 转载:14篇
    • 译文:0篇
    • 评论:51条
    文章分类
    最新评论