如何借助DBD::mysql检查MySQL服务运行状态？含远程服务器场景

一、可以在DBI连接前检查MySQL服务状态 #

不管是本地还是远程，都能通过一些方法提前判断服务是否可用，但要注意：预检查只是辅助手段，最终连接成功与否仍需以DBI的connect执行结果为准（比如存在端口开放但数据库进程异常、用户名密码错误等情况）。

二、本地MySQL服务的检查方法 #

有两种实用思路：

• 检查系统进程：通过系统命令判断mysqld进程是否存在，适合本地环境：

# Linux系统下检查MySQL进程
my $has_mysqld = qx(ps aux | grep mysqld | grep -v grep);
if ($has_mysqld) {
    print "本地MySQL进程正在运行\n";
} else {
    print "本地未检测到MySQL进程\n";
}

# Windows系统下检查可替换为以下代码
# my $has_mysqld = qx(tasklist | findstr mysqld.exe);

• 测试端口连通性：更可靠的方式是检查MySQL默认3306端口是否处于监听状态，避免进程存在但端口未启动的情况：

use IO::Socket::INET;

my $local_socket = IO::Socket::INET->new(
    PeerHost => 'localhost',
    PeerPort => 3306,
    Proto    => 'tcp',
    Timeout  => 3  # 超时时间，单位秒
);

if ($local_socket) {
    print "本地MySQL端口可访问\n";
    close $local_socket;
} else {
    print "本地MySQL端口无法访问，服务可能未启动\n";
}

三、远程MySQL服务器的处理方式 #

远程环境无法直接查看对方进程，只能通过网络层面检测端口连通性，步骤如下：

1. 测试远程服务器的3306端口是否开放（需确保对方防火墙/安全组放行该端口）
2. 端口连通后，再执行DBI连接操作

示例代码：

use IO::Socket::INET;
use DBI;

my $remote_host = '192.168.1.100'; # 替换为你的远程服务器IP/域名
my $socket = IO::Socket::INET->new(
    PeerHost => $remote_host,
    PeerPort => 3306,
    Proto    => 'tcp',
    Timeout  => 5
);

if ($socket) {
    print "远程MySQL端口可访问，尝试连接数据库...\n";
    close $socket;
    
    # 执行DBI连接并捕获异常
    eval {
        my $dbh = DBI->connect(
            "DBI:mysql:database=test;host=$remote_host",
            "usr", 
            "usr's password",
            {'RaiseError' => 1}
        );
        print "数据库连接成功\n";
        # 后续业务操作...
        $dbh->disconnect;
    };
    if ($@) {
        print "连接失败：$@\n";
    }
} else {
    print "远程MySQL端口不可访问，请检查服务状态、防火墙或安全组设置\n";
}

额外注意：远程连接还需确保MySQL服务允许远程访问——比如修改my.cnf（或my.ini）中的bind-address为允许的IP段，同时给数据库用户授予远程登录权限（如GRANT ALL ON test.* TO 'usr'@'%' IDENTIFIED BY 'your_password';）。

内容的提问来源于stack exchange，提问作者Manoj Agarwal