如果我的第一个数据库连接在perl中使用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 });
}