perl实现检测服务器中的服务是否正常脚本分享
程序调用远端服务，为了确保可用性最好在使用前进行健康检测，将异常的服务排除。
#!/usr/bin/perl
#
usestrict;
useIO::Socket;
my@servers;
$servers[0]=['180.153.100.93',2222];
$servers[1]=['180.153.100.93',22];
$servers[2]=['180.153.100.93',80];
my$i=0;
my$interval=3;
my$count=int(60/$interval);
while($i<$count){
foreach(@servers){
if(fetch_server_status(@$_)){
print$$_[0].':'.$$_[1]."ok\n";
}else{
print$$_[0].':'.$$_[1]."bad\n";
}
}
$i++;
sleep$interval;
}
subfetch_server_status(){
my($ip,$port)=@_;
my$socket=IO::Socket::INET->new(
PeerAddr=>$ip,
PeerPort=>$port,
Timeout=>1,
);
if(!$socket){
return0;
}else{
return1;
}
$socket->close;
}
热门推荐
1 如何训练狗狗不叫
2 训练狗狗不叫
3 训练狗狗随行
4 怎么训练狗狗不叫
7 训练比熊狗狗教程
10 上海狗狗训练
11 怎么训练狗狗上厕所
12 训练狗狗趴下
13 狗狗服从训练
14 训练狗狗拒食
15 训练狗狗笑
16 训练狗狗大便
17 训练狗狗立
18 训练狗狗捡东西