perl 监控每个ip的连接数
发布时间:2020-12-15 23:42:35 所属栏目:大数据 来源:网络整理
导读:###监控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
###监控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 $timesn"; if ($times >= 100 ){ send_mail('zhjian@zjcap.cn',"$ip establish 121.40.116.25:443 port's connections is $timesn");} }; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |