perl - 从 Perl 脚本异步执行 Bash 命令

Question

我必须运行 Bash 命令。但是这个命令需要几分钟才能运行。

如果我正常(同步)执行此命令，我的应用程序将挂起，直到命令运行完毕。

如何从 Perl 脚本异步运行 Bash 命令？

Answer 1

你可以使用threads异步启动Bash，

use threads;
my $t = async {
  return scalar `.. long running command ..`;
};

然后手动测试线程是否准备好加入，并以非阻塞方式获取输出，

my $output = $t->is_joinable() && $t->join();