perl实现检测服务器中的服务是否正常脚本分享
2018-10-12 13:56
495 查看
程序调用远端服务,为了确保可用性最好在使用前进行健康检测,将异常的服务排除。
#!/usr/bin/perl#
use strict;
use IO::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;
}
sub fetch_server_status(){
my($ip,$port)=@_;
my $socket=IO::Socket::INET->new(
PeerAddr => $ip,
PeerPort => $port,
Timeout => 1,
);
if(!$socket){
return 0;
}else{
return 1;
}
$socket->close;
}
相关文章推荐
- 脚本实现检测nginx服务是否正常
- Shell脚本实现检测文件是否被修改过代码分享
- Shell脚本实现检测文件是否被修改过代码分享
- linux shell脚本自动检测apache服务是否正常的诡异问题
- 时刻检测服务是否正常--心跳检测服务器是否正常的开源项目
- perl检测服务是否正常
- 如何通过shell脚本来检查或监控MYSQL数据库服务是否正常?
- 实现自动上传文件到ftp服务器的BAT脚本分享
- Shell实现判断进程是否存在并重新启动脚本分享
- Shell脚本实现的一个简易Web服务器例子分享
- Shell编程实例-检测Nginx服务是否正常运行(详解)
- mysql和nginx服务是否正常监控脚本
- linux实现自动检测进程是否存活的脚本
- Shell脚本实现检测进程是否正在运行
- 案例:Shell脚本检测网站url是否正常运行
- linux下自动检测服务端口是否正常监听。
- Shell脚本实现的一个简易Web服务器例子分享
- shell脚本:检查ftp日志存储服务器上的日志是否正常上传
- Python实现检测服务器是否可以ping通的2种方法
- 能够检测多台服务器是否在线的脚本