最近电信的线路总是受到攻击，一旦出现问题就得切换到联通的线路上去。这样的情况优势甚至出现在晚上下班以后，弄得人疲惫不堪。两条宽带线路接入的机房在另一部门的机房里，那儿有专人值班，所以一般物理上的切换只要打电话拜托几位兄弟就行了。但是服务器机房只有我在看管，所以其上的ip地址切换就不得不亲自前往，甚是麻烦。所以写了一个监测的脚本，每一分钟ping网管一次，如果遇到不通则将ip地址换为联通的。
use Net::Ping;
$count = 0;
$timer = 1;
print "start monitoring...\n";
while(1){
$p = Net::Ping->new();
if( not $p->ping('*.*.*.*', 3) ){
if ($count == 3){
$count = 0;
system 'netsh -f c:/interface';
open FH, '>>c:/transfer_log.txt';
@current = localtime();
$index = 0;
while($index < 6){ $log = $log."\t".shift(@current); }
print FH $log."\n";
close FH;
last;
}else{
print 'failed: '.$count."\n";
$count++;
sleep 15;
next;
}
}
print 'success: '.$timer."\n";
$timer++;
$p->close();
sleep 60;
}
其中interface文件是用‘netsh -c interface ip dump > c:/interface’命令导出的网卡信息，稍作修改即可使用。