如何在perl中并行的执行两个程序？

flywithclouder

我想在perl中执行多个外部程序，如下：

1. system(“test.exe args”);
   
2. system(“test2.exe args”);

复制代码

但在perl中这两句话是顺序执行的，其实这两个程序完全独立，为提高效率我想并行执行，

请问该如何实现？

maxxfire

fork进程同步再exec

Cu_fans

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my @arr = ("test.exe args", "test2.exe args");
   
6. 
   
7. my @pidt;
   
8. for my $i(0 .. $#arr-1)
   
9. {
   
10.         $pidt[$i] = fork();
    
11.         if ($pidt[$i] < 0)
    
12.         {
    
13.                 print  "fork err","\n";
    
14.                 exit(-1);
    
15.         }
    
16.         elsif ($pidt[$i] == 0)
    
17.         {
    
18.                 system($arr[$i]);
    
19.         }
    
20. }
    

复制代码

把perl写成了C, 正宗的perl中对多进程是如何处理的？

flywithclouder

在其他论坛上，有人建议我用Parallel::ForkManager ，我试了一下，确实很强大

yiten

在linux下我一般这么做，你不妨试下，简单管用
system(“test.pl args &”);