我如何连接第二个数据库，如果我的第一个数据库连接使用eval中的eval的数据库连接失败

Question

我想使用perl连接到数据库，但是如果我的数据库连接是faild，那么我想使用eval函数连接到我的第二个数据库。

Answer 1

my $dbh = eval { 
    DBI->connect("DBI:mysql:host=$host1;database=$database", 
     $user, $password, { 'RaiseError' => 1 }); 
}; 
if (!$dbh) { 
    $dbh = DBI->connect("DBI:mysql:host=$host2;database=$database", 
     $user, $password, { 'RaiseError' => 1 }); 
}