如何实现多任务并行运行

pony2001mx

大家好:
我想在脚本里多任务并行运行, 举个例子如下。下面脚本运行得太慢了，因为一次运行一个文件（command那行），我有几千个后缀为.fa的文件， 如何一次运行10个或更多？  向高手请教，非常谢谢！！

1. @files = glob "/home/data/*.fa";
   
2. for $file (@files) {
   
3.     open F, "command  -in $file | ";
   
4.     while (<F>) {
   
5.         if (/>/) {do something}
   
6.         else {do something}
   
7.     }
   
8.     close F;
   
9. }

复制代码

chenhao392

写个shell script.

1. perl    script.pl  file_name  &
   
2. perl    script.pl  file_name  &
   
3. perl    script.pl  file_name  &
   
4. 
   
5. wait
   
6. perl    script.pl  file_name  &
   
7. perl    script.pl  file_name  &
   
8. perl    script.pl  file_name  &
   
9. 
   

复制代码

这个shell脚本是用command line生成的...例如：
ls *fa|sed 's/\(.*\)/perl script.pl \1 \&/' >run.sh

我会用vim修改下，每隔若干行加上 wait

pony2001mx

谢谢chenhao392, 用command line生成shell脚本的主意非常好.

rongchaogao

你看能不能用一个简单的的多线程模块：
Perl 多线程模块 Parallel::ForkManager
竟然不能发链接，好忧伤。

pony2001mx

Thanks a lot!
回复 4# rongchaogao