Comment me connecter à deux serveurs différents en utilisant le module DBI de Perl?

Question

Je dois comparer des colonnes de tables situées dans deux bases de données différentes sur deux serveurs différents. Jusqu'à présent, je sais comment se connecter à un serveur & une base de données en utilisant le script Perl. Est-il possible de se connecter à deux serveurs différents en utilisant le module DBI de Perl? Si c'est le cas, comment?

Answer 1

Vous vous connectez à une base de données à l'aide de DBI->connect(). Cela retourne un handle à cette base de données. Pour se connecter à deux bases de données, utilisez deux poignées:

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

vous pouvez maintenant utiliser $dbh1 pour la première base de données et $dbh2 pour le second.