perl实现检测服务器中的服务是否正常脚本分享
更新时间：2014年10月15日 10:15:42 投稿：junjie
这篇文章主要介绍了perl实现检测服务器中的服务是否正常脚本分享,本文脚本用于检测Linux服务器的服务是否正常,需要的朋友可以参考下
程序调用远端服务，为了确保可用性最好在使用前进行健康检测，将异常的服务排除。
复制代码 代码如下:
#!/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的INC变量包含了所有perl module的查找路径，可以使用perl -V 来查看INC的值2013-02-02
perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)2013-02-02
在perl代码中，open 有一个特殊的地方，就是如果你给它一个未定义（这是为什么用hash的原因）的变量做间接文件句柄，那么 Perl 会自动为你定义那个变量，也就是自动把它激活，使它包含一个合适的文件句柄引用2013-02-02
Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。这篇文章主要介绍了Windows10下安装配置 perl 环境的详细教程,需要的朋友可以参考下2020-12-12
perl对m x n类似表进行按列排序的代码，有需要的朋友可以参考下2013-02-02
哈希在perl是非常重要且常用的，本文为大家介绍一些常见的用法，供大家学习参考2013-02-02
perl中常用的函数集合，特分享下，方便需要的朋友2013-02-02
如果要对使用的lib指定路径，可以使用下面的语法2013-02-02
perl可以使用JSON模块很方便的处理json的序列化和反序列化,本文通过一个简单例子给大家介绍的非常详细,感兴趣的朋友跟随小编一起看看吧2023-12-12
这篇文章主要介绍了windows安装perl及komodo IDE的详细步骤,本文通过图文并茂的形式给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-12-12
最新评论