perl - 如何使用 Perl 的系统调用来生成独立线程？

Question

我想调用其他 Perl 脚本，以便使用主 Perl 脚本执行争用测试。

像这样的东西目前有效:

system("perl 1.pl");
system("perl 2.pl");
exit;

但是，我想将它们作为同时运行的独立线程启动。

我尝试过，根据我的谷歌搜索，做这样的事情:

system(1, "perl 1.pl");
system(1, "perl 2.pl");
exit;

那行不通。主脚本立即存在，这很好，但是我想要生成的底层线程不会被启动。我想知道我是否还有其他事情要做，或者是否有人做过类似的事情。

提前感谢您的任何帮助。

Answer 1

use threads;
$thr1 = threads->create('msc', 'perl 1.pl');
$thr2 = threads->create('msc', 'perl 2.pl');

$thr1->join();
$thr2->join();

sub msc{ ## make system call
  system( @_ );
}

这将在退出之前等待两者完成执行。我猜这就是你最初的问题想要的，对吧？如果不能随意发表评论并编辑您的帖子以更好地解释它，我会再试一次。