Perl ファイルハンドルを閉じずに反映させる

質問

お世話になっております。
Perl(プログラミング言語)について質問です。

openメソッドで開いたファイルハンドルに
print文で書込みを行った際に、ファイルハンドルをcloseせずに、
書込みを反映させる方法はありますか？

開くのはファイルではなく(他プロセスへの)パイプです。
$| を設定してもだめでした

(例としては
perl1.pl , perl2.pl を用意する

<perl1.pl>
$i;
open(OUT,"| perl2.pl")
while(1){
print OUT "$i"
$i++　
}
close(OUT)

<perl2.pl>
while( <STDIN> ) {
print $_;
}

のようなことをやりたいです。
上記のようなスクリプトを実行したところ、
perl1のcloseが実行されるまで反映されません。

これをcloseをせずに反映させる方法はありますでしょうか？
よろしくお願いします。

回答No.1

mtaka2 · ベストアンサー

$|= は、現在選択されているファイルハンドル(デフォルトで STDOUT)に対するバッファリングの設定ですので、それだけではだめです。
一旦、OUT を select してからバッファリング設定するようにします。
その後で元にselectし直さないと、普通の print が使えなくなりますから、
---ここから
my $oldfh = select(OUT);
$| = 1;
select($oldfh);
---ここまで
といったコードを、open の後に入れてみてください。

お礼

mtaka2様

ご回答ありがとうございます！！

さっそく試してみましたが、見事！動きました。
> 現在選択されているファイルハンドル(デフォルトで STDOUT)に対するバッファリングの設定
そういうことだったんですね～理解しました。

大変助かりました。ありがとうございました。