在Ksh和Perl中并行执行任务的最佳方法是什么？

Question

我有一个大型的C++项目,我需要在没有并行make的平台上构建(比如Linux上的make -j).服务器有6个CPU,我想手动进行并行构建.

我可以为大约300个目标文件生成这样的任务列表.我使用Makefile进行依赖性检查和增量构建:

make -f Makefile obj1.o

make -f Makefile obj2.o

make -f Makefile obj3.o ...

我如何并行执行这些任务,使用Ksh和Perl一次运行的任务不超过6个？(Java或Python不可用:-()

Answer 1

在Perl中,你应该看看Parallel :: ForkManager.你可以这样做:

my @make_obj = qw(
  obj1.o
  obj2.o
  obj3.o
  ...
);

my $fm = $pm = new Parallel::ForkManager(6);
foreach my $obj (@make_obj) {
  $fm->start and next;
  system("make -f Makefile $make_obj");
  $fm->finish();
}