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