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

【问题标题】：How do I connect to two different servers using Perl's DBI module?如何使用 Perl 的 DBI 模块连接到两个不同的服务器？
【发布时间】：2009-11-20 08:01:18
【问题描述】：

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

【问题讨论】：

标签： perl dbi

【解决方案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 用于第二个数据库。

【讨论】：