如何實現(xiàn)多任務(wù)并行運行

pony2001mx

大家好:
我想在腳本里多任務(wù)并行運行, 舉個例子如下。下面腳本運行得太慢了，因為一次運行一個文件（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. }

復(fù)制代碼

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. 
   

復(fù)制代碼

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

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

pony2001mx

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

rongchaogao

你看能不能用一個簡單的的多線程模塊：
Perl 多線程模塊 Parallel::ForkManager
竟然不能發(fā)鏈接，好憂傷。

pony2001mx

Thanks a lot!
回復(fù) 4# rongchaogao