0

私のスクリプトでは、DBI のラッパーを使用するいくつかの異なるオブジェクトが作成されます。

package MY::DB;
use DBI;

sub my_connect {
  my ($class, %p) = @_;
  my $dbh = DBI->connect(...);
  $dbh->do("SET NAMES cp1251");
  return bless {dbh => $dbh}, $class;
}

sub query {
  my ($self, $sql) = @_;
  # sql execution
}
...

データベースへの接続を 1 つだけ使用してスクリプトを最適化することにしました。グローバル変数と DBI->connect_cached(..) のメソッドの 2 つのオプションを試しました。結果は同じです。接続は実際にはすべてのオブジェクトに対して 1 つ使用されますが、接続後に SQL コードを処理しません。

...
sub my_connect {
  my ($class, %p) = @_;
  my $dbh = DBI->connect_cached(...);
  $dbh->do("SET NAMES cp1251"); # no effect :(
  return bless {dbh => $dbh}, $class;
}
...

たとえば、私はクラスを持っています：

package MY::USER;
use base 'MY::DB';
sub constructor {
    my ($class) = @_;
    return MY::DB::my_connect($class);
}
sub get_info_1 {
  my ($self) = @_;
  $self->query(...);
}
sub get_info_2 {
  my ($self) = @_;
  $self->query();
}

package MY::NEWS;
use base 'MY::DB';
sub constructor {
    my ($class) = @_;
    return MY::DB::my_connect($class);
}
sub get_info {
  my ($self) = @_;
  $self->query(...);
}

脚本：

use MY::USER;
use MY::NEWS;

my $user = MY::USER->constructor;
my $news = MY::NEWS->constructor;

$user->get_info_1; # OK
$news->get_info; # OK
$user->get_info_2; # here $dbh->do("set names cp1251") operation no effect
4

1 に答える 1

0

私の問題に対する答えが見つかりました！

メイン DBI クラスにはデストラクタがあります:

sub DESTROY {
    my ($self) = @_;
    $self->{dbh}->disconnect;
}

そして、このクラスのすべての子はそれを持っています。NEWS->get_info() 内で同じオブジェクトが呼び出されて破棄され、データベースへのリンクが切断されました... しかし、DBH 変数の値は定義されています!

于 2013-11-08T21:22:40.583 に答える