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

Question

我需要这样做：

1. 运行program1（异步）
2. 运行program2（同步）
3. 记住program2的返回码
4. 杀死程序1

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();