如何在Perl中異步運行外部程序？

Question

我需要這樣做：

1. 運行程序1（異步）
2. 運行程序2（同步）
3. 記住程序2
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();