database - 如何捕捉到不存在的 Rose::DB 数据库的连接失败？

Question

我的 Perl 应用程序在 Windows XP 上使用 Rose::DB、Rose::DB::Object (ORM) 和 Tk。我需要检查数据库连接信息(主机、端口、数据库名称、用户、密码)是否导致有效连接。如果我调用 $db->connect并使用例如一个不存在的测试主机，Rose::DB 说:

DBI connect('dbname=my_db;host=192.168.70.85;port=5432','postgres',...) failed: <br/>could not connect to server: No route to host (0x00002751/10065)

我如何捕获它并为我的应用程序创建一条新消息？这是一个关于 try/catch 的问题吗？

感谢您的帮助!

Answer 1

John 向我发布了一个到目前为止似乎有效的解决方案:


my $ok = eval { $db->connect };<br/>



<pre><code>if(!$ok || $@) { # Connection failed }
</code></pre>