$| = 1; select(PIPE);
is wrong. It sets autoflush for the previously select handle, not PIPE. It should be
my $old_sel = select(PIPE); $|=1; select($old_sel);
or the more readable
use IO::Handle qw( ); PIPE->autoflush(1);
Now that won't fix your problem. Since you proceed to close the pipe after every print, everything is being flushed even though you fail to turn on autoflush. However, once you fix autoflush, you won't have any reason to keep reopening and closing the pipe.
Now, I'm quite curious as to what you use <PIPE> to read from the pipe (with $/ left to its default) when the data sent over the pipe doesn't contains any newlines.
In reply to Re: IPC via named pipes, losing some messages
by ikegami
in thread IPC via named pipes, losing some messages
by ftumsh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |