我正在使用以下DBD::MySQL语句连接到MySQL数据库:
use DBI;
# Connect to the database.
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
"usr", "usr's password",
{'RaiseError' => 1});
在try 连接到数据库之前，有没有办法判断MySQL服务是否正在运行？如果数据库在远程服务器上运行，该怎么办？
如果您想要一个解决方案来判断服务是否正在运行而不try 连接到它，您可以使用某个Perl包来判断process table(仅在本地工作)，或者判断MySQL port (3306 by default) has a process listening to it.
我不确定这个判断的目的是什么，因为即使服务正在运行，您可能想要做的下一件事是打开一个数据库连接.打开数据库连接是一件快速而简单的事情，如果它不工作，它会有很好的错误报告.因此，您判断服务是否首先运行的意图是不必要的开销.
我只会试着像你一样建立联系.这是判断服务是否正在运行的最直接方式，它既可以在本地工作，也可以远程工作.
如果出现错误，则捕获错误并解释错误消息.它将是Error 2002(对于本地主机)或2003(对于TCP/IP，无论它是同一主机还是远程主机).
这些错误是百分百可靠的.但也可能会出现一些转移注意力的问题，例如，如果服务在远程主机上运行，但您的客户端主机由于防火墙或路由问题而无法访问它.
如果您收到错误1045(拒绝访问)，至少您知道服务正在运行，您可以访问它，问题只是您的用户和密码不正确，或者您试图访问您无权使用的架构.