[perl]標準出力以外のバッファリングを無効にする

perlにはCでいうところのfflush関数がないのですが，以下のように実現．CGIでおなじみの変数$|とselect関数を使う．

  open OUT ,"> a_file.txt" or die "Cannot open a_file.txt\n";
  my $oldflh = select(OUT); $| = 1;  select($oldflh);

プログラミングPerl〈VOLUME2〉 オライリー・ジャパン このアイテムの詳細を見る