0

この記事を使用しました: http://www.perlmonks.org/?node_id=594175 DBI と fork を組み合わせてコードを記述します。Linux では動作しますが、Windows XP では動作しません。アクティブ状態の Perl v5.10.0 MSWin32-x86-multi-thread、DBD::mysql v4.011 を使用しています。

Linux Perl v5.16.1 i486-linux-thread-multi DBD::mysql v4.021 の場合。

コード。dbi_fork.pl:

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
require "mysql.pl";

my $dbh = connect_mysql();

if (fork()) {
    $dbh->do("UPDATE articles SET title='parent' WHERE id=1");
}
else {
    my $dbh_child = $dbh->clone();
    $dbh->{InactiveDestroy} = 1;
    undef $dbh;
    $dbh_child->do("UPDATE articles SET title='child' WHERE id=2");
}

mysql.pl:

sub connect_mysql
{
    my $user_db = 'user';
    my $password_db = 'secret';
    my $base_name = 'test';
    my $mysql_host_url = 'localhost';

    my $dsn = "DBI:mysql:$base_name:$mysql_host_url";
    my $dbh = DBI->connect($dsn, $user_db, $password_db) or die $DBI::errstr;

    return $dbh;
}

1;

記事の表:

DROP TABLE IF EXISTS `articles`;
CREATE TABLE `articles` (
  `id` int(10) unsigned NOT NULL AUTO_INCREMENT,
  `title` varchar(50) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARSET=utf8;

-- ----------------------------
-- Records of articles
-- ----------------------------
INSERT INTO `articles` VALUES ('1', 'title1');
INSERT INTO `articles` VALUES ('2', 'title2');

Windows では、次のエラーが表示されます。

$ perl ./dbi_fork.pl
DBD::mysql::db clone failed: handle 2 is owned by thread 2344b4 not current
thread 1a45014 (handles can't be shared between threads and your driver may
need a CLONE method added) at ./dbi_fork.pl line 14.

直し方?

4

2 に答える 2

2

これが解決策です - すべてのスレッドが独自の接続を作成します:

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
require "mysql.pl";

if (fork()) {
    my $dbh = connect_mysql();
    $dbh->do("UPDATE articles SET title='parent' WHERE id=1");
}
else {
    my $dbh = connect_mysql();
    $dbh->do("UPDATE articles SET title='child' WHERE id=2");
}
于 2013-06-22T17:58:51.533 に答える