perl里的多线程问题？？

huangfei777528

部分代码如下：
use Thread；

foreach my $x (0..$#a) {
                my $a_1=$a[$x];
                my @array;
                foreach my $y (0..$#spots) {
                        my $a_2=$spots[$y];       
                                my $euc=Thread->new(\&Euc,$a,$samples,$a_1,$a_2);
                                push (@array,$euc);
                }
                for my $i(0..$#array) {
                        my $result=$array[$i]->join;
                        if($min > $result) {
                                        $min=$result;
                                        $b_pair[0]=$a[$x];
                                        $b_pair[1]=$spots[$i];
                                }
                        }
                }


print $min."\t".$b_pair[0]."\t".$b_pair[1]."\n";


其中Euc是一个函数，想通过循环来得到最小值，及其对应在数组@a，@spots里的值，由于数据量比较大，运行起来比较慢，已经运行了5个小时都没有结果，所以想改用多线程，但是我发现用多线程，速度还是很慢，到现在还是没出结果。所以想请教各位大虾，是不是我写的代码有问题，还是说不应该用多线程，而要用到进程。如果是用多进程，又该怎么写呢？

黑色阳光_cu

有多少个核或者CPU？

huangfei777528

回复 2# 黑色阳光_cu


    大概有50个cpu吧。

ddgfff

好多循环嵌套呀，数据量大的话，内存占用不是一般的多吧

py

用多进程吧，就是传统的fork，然后一个个的wait pid就好了。具体可以搜搜论坛或是网上的例子，很多的。
我这里双CPU，16核。算起东西来很快的。以前大概1周算完的数据现在也就几个小时。

huangfei777528

回复 5# py


    谢谢版主，谢谢。