验证 MySQL 驱动程序是否存在
我有一个使用 MySQL 后端的 Perl 应用程序。
如何验证 MySQL 和数据库驱动程序是否可访问？
我目前正在执行以下操作，但我不知道这实际上是否是一个足够的测试 --我不想在六个月后发现我没有做正确的测试：
use Test::More;
BEGIN { use_ok('DBI'); }
BEGIN { use_ok('DBD::mysql'); }
done_testing();
I have a perl application that uses a MySQL backend.
How do I verify that the MySQL and database drivers are accessible?
I'm currently doing the following, but I don't know if it is actually a sufficient test -- I'd hate to find out six months down the line that I'm not doing the right test:
use Test::More;
BEGIN { use_ok('DBI'); }
BEGIN { use_ok('DBD::mysql'); }
done_testing();
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
这足以检查 Perl 端的连接是否可用。如果你想检查mysql服务器是否可用，你需要连接到它。
PS 您还可以为 DBD::mysql 添加版本检查。对于前。 4.001 修复了 utf8 支持中的严重错误。
This is enough to check that connection will be available from Perl side. If you want to check if mysql server is available, you need to connect to it.
P.S. You can also add version checking for DBD::mysql. For ex. 4.001 fixes serious bug in utf8 support.
嗯，对我来说看起来不错，但如果您想确定，您可以检查 %INC 即：
Well, it looks fine to me, but if you want to be sure, you can check for the presence of the actual filepaths in your %INC ie: