サーバーのサービスが動作しているかどうかを検出するための perl スクリプトです。
2022-01-28 09:42:05
このプログラムはリモートサービスを呼び出しており、可用性を確保するために、使用前にヘルスチェックを行い、異常なサービスを除外するのが最善です。
コピーコード
コードは以下の通りです。
#! /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です。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
Perl学習チュートリアル - シングルラインコマンドの説明
-
Perlにおけるtrueとfalseの徹底研究
-
python urllibでのエンコード処理例
-
Perlのサブルーチン 学習メモ
-
perl スクリプティング スタディガイド - 読書メモ
-
perl で書かれた乱数話法プログラム (rand random function)
-
長さを指定し、ランダムなDNA配列を生成するperlスクリプトコード
-
Linux/Unix で Perl モジュールをインストールする 2 つの方法
-
windows perlでフラッシュ後にスクリプトが終了しないようにする方法
-
[解決済み] スクリプトからの不正なヘッダー。不正なヘッダー=<!DOCTYPE html> です。