perl - 从 qx 子进程流式传输标准输出

Question

我有大量脚本需要执行。为了调试目的，我喜欢观察上述脚本的输出。

通常 print qx/foo/ 会收集 foo 的标准输出，直到 foo 完成，然后打印它。

我想流式传输它，以便我可以观察 foo 的输出，和以某个标量捕获 foo 的输出。

理想情况下:

$cmd = "foo";
$result = stream_and_store($cmd);

我有理由相信那里有一些复杂的方法，包括一些漂亮的 CPAN 模块。

我希望能够在基本 Perl 5.8.8(是的，古董，但这就是环境)中完成它，而无需添加其他依赖项。

Answer 1

小心你的愿望:

$output = `somecmd | tee /dev/tty`;