线程问题

herolyh

下面代码有什么问题，为什么执行的时候报错：can't create thread:No such file or directory
在sub updateData中不加while循环又不报错，为什么呢？
for(my $i=0;$i<$thread_num;$i++) {
        $threadlist[$i]=threads->create("updateData",$account[$i]) or die "can't create thread:$!\n";
}
foreach (@threadlist) {
        $_->join() or die "can't create thread:$!\n";
}
sub updateData($) {
my $tmpaccount=shift;
my $run_num=2;
# 线程循环执行存储过程
my $j=0;
while($j<$run_num) {
my $key=getKey();
my $number=getPrice();
my $item=getItem($number);
$key=~s/\n//g;
$tmpaccount=~s/\n//g;
my $user="cpc";
my $passwd="sogouad";
my $dbh = DBI->connect("dbi:Oracle:host=192.168.41.50;sid=search",$user,$passwd);
my $string="update key set $item where i_account_id=$tmpaccount and c_key='$key'";
print $string,"\n";
my $update;
#my $sth=$dbh->prepare($string);
$dbh->do($string);
# 执行存储过程
my $sth=$dbh->prepare("BEGIN key_price_reset(?,?);END;");
$sth->bind_param( 1,$key);
$sth->bind_param_inout( 2, \$update, 1000 );
$sth->execute();
$sth->finish();
$dbh->disconnect();
$j++;
}
}

[ 本帖最后由 herolyh 于 2007-2-8 15:50 编辑 ]

herolyh

帮忙看一下

xiaoshengcaicai

No such file or directory...

这个报错没遇到过。。

楼主能不能试试，把数据库相关的东西从循环里面移掉，看看还出错不

herolyh

把die去掉就好了！