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

Question

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

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

make -f 生成文件 obj1.o

make -f 生成文件 obj2.o

make -f 生成文件 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();
}