[求助] Perl如何实现子程序的并发执行

perhapszj5566

如题，我有一个子程序需要执行100次，如果顺序执行的话，太费时间。

如果实现并发调用这个子程序，让这100次同时进行？

多谢

q1208c

threads ?

珞水的大叔

fork应该也可以

oracle狂热分子

使用多线程

shijiang1130

perhapszj5566 发表于 2014-07-22 10:09
如题，我有一个子程序需要执行100次，如果顺序执行的话，太费时间。

如果实现并发调用这个子程序，让这1 ...

能贡献一下你的子程序？ 也许大家可以改成并发版的

stanley_tam

use Coro;{:3_193:}

perhapszj5566

shijiang1130 发表于 2014-07-22 21:35
能贡献一下你的子程序？ 也许大家可以改成并发版的

#!/usr/bin/perl

$sum1 = &sum(1,10000000000);
$sum2 = &sum(1,100);

sub sum {
        my($start,$end) = @_;
        $x = 0;
        for(my $i=$start;$i<=$end;$i++){
                    $x = $x + $i;
        }
        return $x;
}

print "$sum1\n";
print "$sum2\n";

比如这个程序，如果按照目前这种执行顺序 ， 需要等到$sum1计算完毕，才会计算$sum2 ，但是实际上$sum2所需要的计算时间远远的比$sum1低。

如果并发执行，$sum2应该比$sum1先执行完成。

stanley_tam

try this ?

1. sub sum {
   
2.     my($start,$end) = @_;
   
3.     $x = 0;
   
4.     for(my $i=$start;$i<=$end;$i++){
   
5.         $x = $x + $i;
   
6.     }
   
7.     return $x;
   
8. }
   
9. 
   
10. $sum = fork ? sum 1, 1000000 : sum 1, 1000;
    
11. print "$sum\n";
    

复制代码

回复 7# perhapszj5566


   

yybmsrs

fork能得到返回值？

perhapszj5566

回复 8# stanley_tam

非常感谢，大概就是这个意思。

如果我要调用100次&sum呢？fork该怎么用？