文章摘要
这篇文章描述了一个使用 Perl 编写的脚本，用于监控特定服务器的运行状态。脚本通过定义一个数组 @servers 存储了需要检查的服务器 IP 地址和端口信息。脚本每隔 3 秒检查一次服务器状态，总检查时间为 60 秒。检查过程中，脚本使用 IO::Socket 创建连接并尝试连接到目标服务器，如果连接成功则返回状态“ok”，否则返回“bad”。文章的核心内容是介绍一个高效的服务器状态监控脚本及其运行机制。
#!/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;
}
© 版权声明
文章版权归作者所有，未经允许请勿转载。
