https://www.opennet.me/openforum/vsluhforumID9/7884.html При попытке использовать DBI в потоках получаю ошибку:<br><br>thread failed to start: DBD::Sybase::db do failed: handle 2 is owned by thread 814c008 not current thread 845e040 (handles can't be shared between threads and your driver may need a CLONE method added)<br><br>Код:<br><br>use DBI;<br>use threads;<br><br>sub ms_do<br>{<br> local @par=@_;<br> $par[0]-&gt;do($par[1]);<br>}<br><br>my $mdbh=DBI-&gt;connect("dbi:Sybase:server=$server", $login, $pass);<br>my @thr;<br><br>push @thr, threads-&gt;create(\&ms_do,$mdbh,"delete from $database.$table1");<br>push @thr, threads-&gt;create(\&ms_do,$mdbh,"delete from $database.$table2");<br><br>foreach my $thread (@thr)<br>{<br> $thread-&gt;join();<br>}<br><br>Соответственно вопрос: Что я делаю не верно? И есть ли возможность использовать многопоточность с DBI в perl?<br><br> https://www.opennet.me/openforum/vsluhforumID9/7884.html#2 Thu, 05 Feb 2009 23:23:52 GMT &gt;Что я делаю не верно? <br><br>Используете DBI в тредах, хотя известно, что большинство DBD, да и сам DBI не threadsafe<br>&gt;И есть ли возможность использовать многопоточность с DBI в perl?<br><br>Ну например обращаться к базе только из одного потока, а остальными ставить ему запросы в очередь. <br> https://www.opennet.me/openforum/vsluhforumID9/7884.html#1 Thu, 05 Feb 2009 18:40:44 GMT &gt;[оверквотинг удален]<br>&gt;push @thr, threads-&gt;create(\&ms_do,$mdbh,"delete from $database.$table1");<br>&gt;push @thr, threads-&gt;create(\&ms_do,$mdbh,"delete from $database.$table2");<br>&gt;<br>&gt;foreach my $thread (@thr) <br>&gt;{ <br>&gt; $thread-&gt;join();<br>&gt;} <br>&gt;<br>&gt;Соответственно вопрос: Что я делаю не верно? И есть ли возможность использовать <br>&gt;многопоточность с DBI в perl? <br><br>причем тут DBI? у вас DBD ругается!<br>вполне возможно что данный драйвер не позволяет это сделать... посмотрите как он у вас собран. и есть ли вообще у него такаая возможность.<br><br>попробуйте открыть два дескриптора $mdbh<br>