我們使用的程序調用要使用遠程服務，為了保證可用性，最好在使用前進行健康檢查，下文是武林技術頻道小編分享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實現檢測服務器中的服務是否正常腳本，相信大家都看完了，大家有沒有想要在實際的程序中操作一翻呢？同時也希望大家繼續武林技術頻道！
?
新聞熱點
疑難解答
圖片精選
