perl實(shí)現(xiàn)檢測服務(wù)器中的服務(wù)是否正常腳本分享
程序調(diào)用遠(yuǎn)端服務(wù)，為了確?？捎眯宰詈迷谑褂们斑M(jìn)行健康檢測，將異常的服務(wù)排除。
#!/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;
}
相關(guān)文章
perl控制流介紹(if條件，while,for循環(huán),foreach)
Perl控制流(if條件，while,for循環(huán))，需要的朋友可以參考下2013-02-02
Perl使用File::Basename獲取文件擴(kuò)展名的代碼
本文為大家介紹的這個例子，實(shí)現(xiàn)了獲取/home/topgkw中所有文件后綴，其中目錄返回空值2013-02-02
這篇文章主要介紹了cpanm安裝及安裝Perl模塊教程,本文先是給出了cpanm的安裝教程,同時給出了Perl模塊的安裝實(shí)例,需要的朋友可以參考下2014-10-10
perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享
這篇文章主要介紹了perl中使用ip138網(wǎng)站查詢ip歸屬地腳本分享,本文包含了處理HTML的部分,只保留IP歸屬地信息,需要的朋友可以參考下2014-09-09
perl 刪除數(shù)組元素的幾種方法，有需要的朋友可以參考下2013-02-02
Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例
這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開發(fā)實(shí)例,實(shí)現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下2014-06-06
這篇文章主要介紹了什么是Perl？編程語言Perl詳細(xì)介紹,本文著重講解了Perl的發(fā)展歷史,需要的朋友可以參考下2015-02-02
windows安裝perl及komodo IDE的詳細(xì)步驟
這篇文章主要介紹了windows安裝perl及komodo IDE的詳細(xì)步驟,本文通過圖文并茂的形式給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-12-12
perl產(chǎn)生隨機(jī)數(shù)實(shí)現(xiàn)代碼
Perl利用函數(shù)rand()和srand()為隨機(jī)數(shù)（更確切的說是“偽隨機(jī)數(shù)”）字符串的生成提供了基本的工具2013-02-02
今天小編就為大家分享一篇關(guān)于將Perl5代碼遷移到Perl6上的解決方案，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧2018-10-10