如何在Perl中异步运行外部程序？

Question

我需要这样做：

1. 运行program1（async）
2. 运行program2（sync）
3. 记住program2的返回代码
4. 杀死program1

Answer 1

我认为这会解决问题：

use IPC::Run qw( start run );
my $prog1_h = start [ $prog1, @progs1_args ];
run [ $prog2, @progs2_args ];
my $prog2_exit_code = $? >> 8;
$prog1_h->finish();