perl实现检测服务器中的服务是否正常脚本分享
更新时间：2014年10月15日 10:15:42 投稿：junjie
这篇文章主要介绍了perl实现检测服务器中的服务是否正常脚本分享,本文脚本用于检测Linux服务器的服务是否正常,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
程序调用远端服务，为了确保可用性最好在使用前进行健康检测，将异常的服务排除。
复制代码 代码如下:
#!/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;
}
相关文章
在perl代码中，open 有一个特殊的地方，就是如果你给它一个未定义（这是为什么用hash的原因）的变量做间接文件句柄，那么 Perl 会自动为你定义那个变量，也就是自动把它激活，使它包含一个合适的文件句柄引用2013-02-02
这篇文章主要介绍了Perl eval函数使用实例,本文讲解了eval 函数的两种使用方式,并给出3个使用实例,需要的朋友可以参考下2014-11-11
这篇文章主要介绍了Perl信号处理学习简单小结,本文着重列出了Unix下常见的处理信号表,需要的朋友可以参考下2014-09-09
perl是什么，干什么用的？perl原来设计者的意图是用来处理 字符的，80%的强项是处理字符，当然其它的很多都可以。现在很多网页也是用perl的，通常需要CGI环境2015-10-10
这篇文章主要介绍了Perl函数(子程序)学习笔记,本文讲解了函数定义、函数返回值、函数参数传递等内容,需要的朋友可以参考下2014-11-11
创建,引用仅有两种方法，使用它也是两种,这里简单介绍下， 方便需要的朋友2013-02-02
Perl利用函数rand()和srand()为随机数（更确切的说是“伪随机数”）字符串的生成提供了基本的工具2013-02-02
perl 用grep map求交集、并集、补集的例子，有需要的朋友可以参考下2013-02-02
这篇文章主要介绍了perl 采集入库脚本分享,本文是以前自己用的脚本,使用的Mysql数据库,需要的朋友可以参考下2014-09-09
Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。这篇文章主要介绍了Windows10下安装配置 perl 环境的详细教程,需要的朋友可以参考下2020-12-12
最新评论