Yet Another Hackadelic

生 DBI ユーザーのための DBI Cookbook (3)

Perl, DBI

d:id:ZIGOROu:20090814:1250262134 のさらに続編です。

現在接続している dbh 全てを disconnect したい場合

use strict;
use warnings;
use DBI;

### なんかいっぱい接続したりとかする

my %drhs = DBI->installed_drivers;
for my $drh ( values %drhs ) {
  for my $dbh (@{$drh->{ChildHandles}}) {
    eval { $dbh->disconnect; };
  }
}

こんな感じ。永続環境で1リクエストをさばく間は DBI->connect_cached() で接続するとして、それらを最後に明示的に disconnect するとかで使えると思う。

SEE ALSO

• 生 DBI ユーザーのための DBI Cookbook (1) - Yet Another Hackadelic
• 生 DBI ユーザーのための DBI Cookbook (2) - Yet Another Hackadelic

Permalink | コメント(0) | トラックバック(2) | 00:37