如何從所有數據庫連接字符串斷開連接

Question

我有一個Perl腳本，它使用不同的連接驅動程序連接到許多數據庫。

有沒有什麼辦法可以在最後斷開一個單獨的斷開連接功能來斷開連接？

例子：

connection 1: $dbh->oracle; 
connection 2: $dbh->sql 

我可以有兩個數據庫的共同斷開連接字符串？

Answer 1

你可以使用visit_handles from DBI自己實現。

use strict; 
use warnings; 
use DBI; 

my $dbh = DBI->connect('DBI:mysql:database=test;host=localhost', 'root', 'pw'); 
my $dbh2 = DBI->connect('DBI:mysql:database=test;host=localhost', 'root', 'pw'); 

DBI->visit_handles(
    sub { 
     my ($driver_handle, $info) = @_; 

     if ($driver_handle->{Type} eq 'db') { 
      # clean up transaction or simply disconnect for each handle 
      $driver_handle->disconnect; 
     } 

     return 1; 
    } 
); 

傳遞給visit_handles代碼參考將呼籲每個驅動程序句柄。如果它返回一個真值，它將隨後用相同的代碼引用調用visit_child_handles。這樣，你可以匹配哪些是數據庫句柄（db），並明確斷開它們。

由於Borodin states in their answer您需要在斷開連接之前處理完成一半的事務。該解決方案僅爲您提供了從一個位置獲取所有連接手柄的方法。

Answer 2

每個數據庫連接將被表示爲一個單獨的數據庫處理$dbh

顯然，您可以編寫一個從所有連接的數據庫處理器斷開，只要你連接的數據庫列表中的子程序始終是相同的

我不知道爲什麼你在注視連接字符串。據推測你的意思是你在撥打DBI->connect時使用的DSN（數據源名稱）？它們僅僅是參數的連接操作和數據庫處理不能在事後被鑑定出它的原始DSN

Issuing rollback() due to DESTROY without explicit disconnect() 

這意味着，你正在使用的交易。最好的方法是自己撥打rollback或commit來結束交易。這是一個壞主意，留下交易時打開程序終止，你所依賴的數據庫驅動程序

的documentation for DBI::disconnect的默認行爲，一般來講這個

，如果你想被提交改變或當你斷開連接時回滾，那麼你應該在斷開連接之前明確地調用「commit」或「rollback」。

你也將得到同樣的警告，如果你調用disconnect而交易仍然是開放的，所以commit或rollback絕對是正確的方法

它是好的，讓Perl的破壞序列implcitly斷開所有數據庫句柄，只要沒有事務處於打開狀態