出力をバッファリングさせない

出力先が名前付きパイプとかファイルとかだと、バッファリングされてしまうっぽい。
なので、バッファリングさせないようにする。

• 特殊変数
• Perlでバッファリング抑止 - mikedaの日記

$ cat hoge.pl
#!/usr/bin/perl

open my $fh, "> hoge";
select((select($fh), $|=1)[0]);  # $fh をバッファリングさせない

while(<>){
    print $fh "$_";
}