打开可写'

Question

我正在学习perl模块IPC :: Run。在阅读cpan doc时，我遇到了'<pipe'。我写了一个小程序。在执行时它总是挂起。

我编写的代码：这只是来自cpan doc的副本。

local (*IN);
@cat = ('cat') 
$h = start \@cat, '<pipe', \*IN;
   print IN "hello world\n";
   pump $h;
   close IN;
   finish $h;

知道它挂起的原因吗？我在这里缺少什么？

感谢，

Answer 1

pump的文档说“它会阻塞，直到它输出一些输入或收到一些输出。”

在该示例中调用pump没有意义。 start没有提供任何内容，start没有被指示听取cat。

删除该行。