perl脚本实时监测重要网络设备以及服务器的连通性
#!usr/bin/perl -wuse Net::Ping;
#因为是一直检测所以条件一直为真
while(1){
$result='';#用来记录测试的结果
#iphost.txt文件保存了需要检测的设备ip，逐行读取设备的ip，调用测试函数进行测试，将返回的结果记录下来
open(F,"iphost.txt");
while ($temp=) {
$result=$result.&ping_test($temp);
}
close(F);
#完成测试，输出测试结果以及完成时间
print $result." ";
print &get_time."test finish"."\n";
#将每次测试结果覆盖写入state.txt文件
open (FP,"+
页:
[1]