验证MySQL驱动程序的存在

Question

我有一个使用MySQL后端的perl应用程序。

如何验证MySQL和数据库驱动程序是否可访问？

我目前正在做以下事情，但我不知道它是否真的是一个充分的测试 - 我不想找出我不是六个月的线路做正确的测试：

use Test::More;

BEGIN { use_ok('DBI'); }
BEGIN { use_ok('DBD::mysql'); }

done_testing();

Answer 1

这足以检查Perl端是否可以连接。如果要检查mysql服务器是否可用，则需要连接到它。

P.S。您还可以为DBD :: mysql添加版本检查。对于前者4.001修复了utf8支持中的严重错误。

Answer 2

嗯，它对我来说很好，但如果你想确定，你可以检查%INC中是否存在实际的文件路径，即：

perl -MDBI -e 'die unless $INC{"DBI.pm"}'
perl -MDBD::mysql -e 'die unless $INC{"DBD/mysql.pm"}'