windows下perl能启动多少个线程？

herolyh

循环启动线程并回收，但是如果线程数目为100个，就会报错，提示“Can't call method "tid" on an undefined value at first1.cgi line 40
A thread exited while 95 threads were running.”
怎么回事呢？
代码如下：

for(my $i=0;$i<$thread_num;$i++) {
        my $thread_time_start=gettimeofday;
        $threadlist[$i]=threads->create("updateData",$account[$i],$run_num);
        my $tid=$threadlist[$i]->tid;
#  print "the start time of thread_",$tid," is ",$thread_time_start,"\n";
#  print LF "the start time of thread_",$tid," is ",$thread_time_start,"\n";
}

# 回收启动的线程
foreach (@threadlist) {
        $_->join();
        my $thread_time_end=gettimeofday;
#        print "the end time of thread_",$_->tid," is ",$thread_time_end,"\n";
#        print LF "the end time of thread_",$_->tid," is ",$thread_time_end,"\n";
}

helbreathszw

没用过windows下perl线程

ERRORS
    This Perl not built to support threads
        The particular copy of Perl that you're trying to use was not built
        using the "useithreads" configuration option.

        Having threads support requires all of Perl and all of the XS
        modules in the Perl installation to be rebuilt; it is not just a
        question of adding the threads module (i.e., threaded and
        non-threaded Perls are binary incompatible.)

THREAD STACK SIZE
    The default per-thread stack size for different platforms varies
    significantly, and is almost always far more than is needed for most
    applications. On Win32, Perl's makefile explicitly sets the default
    stack to 16 MB; on most other platforms, the system default is used,
    which again may be much larger than is needed.

    By tuning the stack size to more accurately reflect your application's
    needs, you may significantly reduce your application's memory usage, and
    increase the number of simultaneously running threads.

    N.B., on Windows, Address space allocation granularity is 64 KB,
    therefore, setting the stack smaller than that on Win32 Perl will not
    save any more memory.

[ 本帖最后由 helbreathszw 于 2007-2-12 14:03 编辑 ]

herolyh

This Perl not built to support threads   ？？？？

helbreathszw

my $thread_time_start=gettimeofday;
        $threadlist[$i]=threads->create({'stack_size' => N*4096},"updateData",$account[$i],$run_num);
N自己设，我也不知道你的那个程序占用多少。

herolyh

$threadlist[$i]=threads->create({'stack_size' => 1000*4096},"updateData",$account[$i],$run_num);
把N设置成1000还是不行！
并发100个线程的时候，提示"Can't call method "tid" on an undefined value at first1.cgi line 40.
A thread exited while 92 threads were running."

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

nsnake

线程是5.8以后才加入的，5.8以前都要自己编译才可以使用
楼主出错可能是硬件限制或者解释器本身的限制吧
毕竟一次用100个线程的程序恐怕也不是很多（BT等P2P的软件除外）
或者你使用进程+线程的方法获取更多可用线程

flw

我记得限制是 64，好像。

Rob

原帖由 flw 于 2007-2-13 16:14 发表
我记得限制是 64，好像。

Win32 大概是100线程左右吧，其它平台各异。

CPAN 上有个更新的 threads 模块一直在维护， 非常活跃，
包括 threads::shared。

包括一些新的功能加入，
而且还可以指定堆栈大小，从而可以创建更多的线程，只要你有足够的内存。
需要提示的是，Perl5.8 的线程机制非常耗内存，能少开，尽量少开吧，
没人欢迎一吃就是几百兆的程序  

强烈建议你下载最新版本，重新编译，以后可能会替换Perl内置的threads模块。

http://search.cpan.org/~jdhedden/

战鹰

Win32下是一百个，而且是所有Perl进程公用这100个线程。
Win32下线程比进程的内存占用还是要少很多，开100个线程是没问题的，但你要开100个进程就有的好看了。

[ 本帖最后由 战鹰 于 2007-2-13 19:59 编辑 ]