如何使用Perl的DBI模块连接到两个不同的服务器？

Question

我必须比较两个不同服务器中位于两个不同数据库中的表的列。到目前为止，我知道如何连接到一台服务器和一个使用Perl脚本的数据库。是否可以使用Perl的DBI模块连接到两个不同的服务器？如果是这样，怎么样？

Answer 1

使用DBI->connect()连接到数据库。这将返回该数据库的句柄。要连接到两个数据库，请使用两个句柄：

my $dbh1 = DBI->connect($connectstr1, $user1, $password1, 
    { PrintError => 1, AutoCommit => 1 });
my $dbh2 = DBI->connect($connectstr2, $user2, $password2, 
    { PrintError => 1, AutoCommit => 1 });

现在，您可以将$dbh1用于第一个数据库，将$dbh2用于第二个数据库。