open(TPOOL, "|thread_pool.test) || print "error: $!" && exit(1)); while(1) { sleep 10; print TPOOL "This is just a test\n"; } Reader: file name: thread_pool.test while(1) { my $input = <STDIN>; log("input: $input"); }
In reply to Writing to a Pipe by cmcmillo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |