■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>;</read></stdin>…