如何使用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第二个数据库.