如何使用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第二。