perl脚本实时监测重要网络设备以及服务器的连通性
发布时间：2020-12-15 23:41:06 所属栏目：大数据 来源：网络整理
导读：????几个月前开始着手做cacti相关的一些工作，使用cacti监控一些重要的网络设备以及服务器。cacti是基于snmp协议的，去轮询采集被监控设备的一些信息（流量 服务器资源使用情况等）。但有时会有一些设备因为轮询响应时间长或者没在规定的时间轮询到，而导致
|
????几个月前开始着手做cacti相关的一些工作，使用cacti监控一些重要的网络设备以及服务器。cacti是基于snmp协议的，去轮询采集被监控设备的一些信息（流量 服务器资源使用情况等）。但有时会有一些设备因为轮询响应时间长或者没在规定的时间轮询到，而导致误报为snmp down，而实际并非如此。除了在调整cacti本身一些参数设置外，可以使用perl脚本实时监测这些设备的网络连通性 ????代码如下： #!usr/bin/perl?-w
use?Net::Ping;??
#因为是一直检测所以条件一直为真
while(1){
$result='';??#用来记录测试的结果
#iphost.txt文件保存了需要检测的设备ip，逐行读取设备的ip，调用测试函数进行测试，将返回的结果记录下来
open(F,"iphost.txt");
while?($temp=<F>)?{
?$result=$result.&ping_test($temp);
}
close(F);
#完成测试，输出测试结果以及完成时间
print?$result."?";
print?&get_time."??test?finish"."n";?
#将每次测试结果覆盖写入state.txt文件
open?(FP,"+<state.txt");
print??FP?$result;
close(FP);
sleep(30);
}
#连通性测试函数，使用的是Net::ping模块
sub?ping_test{
my($host)=@_;
$count=0;#用来记录ping不通的次数
$pingtool=Net::Ping->new("icmp");
#每个设备的IP测试五次，如果ping不通，$count自增
for($j=0;$j<5;$j++)?{
????if(!$pingtool->ping($host)){???
$count++;
}???
}
#根据$count的值判断是否通过连通性测试，1代表通过测试，0代表没通过，5次ping测试都不通视为该设备连通性测试不通过
if($count==5){
???$state=0;
}else?{
???$state=1;
?}
$pingtool->close();
return?$state;?#$state记录测试结果，并将其返回
}
#获取当前时间的函数
sub?get_time{
my?($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
my?$date?=?($mon+1?.'/'.?$mday);
my?$time?=?($hour.":".$min);
return?$date."?".$time;
}
????要测试的设备ip以及测试结果分别保存在iphost.txt文件以及state.txt文件，这样一来当有新增设备需要监测时，修改iphost.txt文件即可，然后通过php将测试结果显示在web端，并定时刷新，php代码如下 <html>
<head><meta?http-equiv="refresh"?content="120"></head>
<title>重要网络设备以及服务器连通性测试</title>
</html>
<?php
//读取刚刚测试的结果
$state_file=file("c:/perllesson/state.txt");
foreach($state_file?as?$value){
$state=$value;
}
//读取被测试的设备ip
$host_file=file_get_contents("c:/perllesson/iphost.txt");
$host=explode("n",$host_file);
//将结果输出到表格，unreachable将显示为红色
echo?"<table?border='1px'?align='center'?width='700px'>";
echo?"<tr><th>被测设备</th><th>状态</th></tr>";
for($i=0;$i<strlen($state);$i++){
???if($state[$i]==1){
???echo?"<tr?align='center'><td>{$host[$i]}</td><td>reachable</td></tr>";
???}else{
???echo?"<tr?align='center'?bgcolor='red'><td>{$host[$i]}</td><td>unreachable</td></tr>";
???}
}
echo?"</table>"?;?
?>
????其实测试的代码非常简单，这个测试的结果可以和cacti一块去判断设备是否正常运行，大大提高监测的准确性。此外在实际使用过程中，还可以在perl脚本中加入邮件报警以及短信平台的报警。在工作中遇到问题应该积极的去改善思考。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |