2011年6月7日星期二

bash coproc

$ coproc perl -MIO::File -le 'autoflush STDOUT 1; do {print $_; sleep 2;} for 1..5'
$ cat <&${COPROC[0]}
1
2
3
4
5

Posted via email from purl's posterous

没有评论: