perl实现检测服务器中的服务是否正常脚本分享（服务器端测试）居然可以这样

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

这篇文章描述了一个使用 Perl 编写的脚本，用于实时监控多个服务器的在线状态。脚本通过定义一个包含服务器 IP 地址和端口号的数组，并在固定的时间间隔内（如 3 秒）对这些服务器进行连接测试。通过使用 `IO::Socket` 库和 `fetch_server_status` 函数，脚本能够根据服务器连接的成功与否输出“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){