■3/11の件は
open2 を使った双方向パイプで解決できるみたい．
これで忌々しき中間ファイルを作らずにすむ・・・
1 #!/usr/bin/perl
2
3 use IPC::Open2;
4
5 @stdin=<STDIN>;
6
7 open2 READ, WRITE, "sort -r ";
8 print WRITE @stdin;
9 close WRITE;
10 print <READ>;
11
12 close READ;
ちなみに close WRITE しないと READ には送られない
