открытие доступно для записи '

Я изучаю perl модуль IPC:: Run. читая cpan doc, я наткнулся на '<pipe'. Я написал небольшую программу. На исполнении он всегда висит.

Код, который я написал : это просто копия из cpan doc.

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

Есть идеи, почему он висит? чего мне в этом не хватает?

Спасибо,

1 2
perl

1 ответ:

Документация для pump говорит: "он блокирует, пока не доставит некоторый вход или не получит некоторый выход."

В этом примере нет смысла вызывать pump. start не было дано ничего, чтобы доставить, и start не было поручено слушать cat.

Удалите эту строку.

1