多线程共享数据库连接句柄的问题

terry8416

perl的多线程似乎不支持共享数据库的连接句柄，有什么办法能让线程共享此句柄呢？我试过clone方法，拷贝了句柄并在线程中使用。

1. 
   
2. my $dbcp=clone($dbh);
   
3. my $thr=threads->create('insert');
   
4. sub insert{
   
5.         my $rows=$dbcp->do("insert into testaa values(20000,6)");
   
6.         my $tid=threads->self->tid;
   
7.         print "thread $tid insert $rows rows\n";
   
8. }
   

复制代码

但运行返回错误：
Can't call do method on handle DBI::db=HASH(0x86af814) after take_imp_data()
这是什么原因造成的？还有其他方法解决这个问题吗？总不能每个线程都创建连接句柄吧。

apile

你的问题..我也碰过...
这也是为什麽我放弃用multithread改用multiprocess的原因之一.....

terry8416

难道线程下就没有好的解决办法了吗？因为fork数的上限问题，我还是想用线程处理问题。

botanica

Clone是不行的，我是每个线程新建一个连接。

Rob

一定要每个线程交叉操作数据库吗？
为何不变通一下， 单独一个线程用来处理所有的数据库操作呢？

例如：

1. 
   
2. use threads;
   
3. use threads::shared;
   
4. use Thread::Queue::Any;
   
5. 
   
6. our $Queue = Thread::Queue::Any->new();
   
7. 
   
8. threads->create('thread_db')->detach;
   
9. threads->create('thread_worker')->detach;
   
10. 
    
11. sub thread_db
    
12. {
    
13.     eval 'use DBI';
    
14.     my $dbh = DBI->connect(...);
    
15.     while (my $do = $Queue->dequeue()) {
    
16.           $dbh->do($do);
    
17.     }
    
18. }
    
19. 
    
20. sub thread_worker
    
21. {
    
22.      my $sql = 'insert into testaa values(20000,6)';
    
23.      $Queue->enqueue($sql);
    
24. }
    
25. 
    

复制代码

terry8416

楼上的方法不错，但如果是要获得查询结果集的场合，处理起来就要复杂多了，还得分配结果集给相应的线程……