小粋空間  -  a cheap joke and a play on words site

Perlでフラッシュする方法

Perlでフラッシュ（＝バッファリングを抑止）する方法を紹介します。

フラッシュすることで、print/printf/writeを実行するたびにバッファがフラッシュされ、リアルタイムに出力できるようになります。

１．標準出力（STDOUT）でフラッシュする

標準出力（STDOUT）をフラッシュするには、次の2通りがあります。

ひとつはIO::Handleを利用する方法です。

#!/usr/bin/perl
 
use IO::Handle;
STDOUT->autoflush(1);
 
for (my $i=0; $i<10; $i++) {
   print $i;
   sleep(1);
}

もうひとつは、特殊変数「$|」を利用する方法です。「$|」に0以外の値を設定すれば出力をバッファリングしなくなります。

#!/usr/bin/perl
 
local $| = 1;
 
for (my $i=0; $i<10; $i++) {
   print $i;
   sleep(1);
}

CGIも、次のように書けば同じ効果が得られます。

#!/usr/bin/perl
 
use CGI;
use IO::Handle;
STDOUT->autoflush(1);
 
my $q = new CGI;
print $q->header(-charset=>"utf-8");
 
for (my $i=0; $i<10; $i++) {
   print $i;
   sleep(1);
}

下記のサンプルで動作をご確認ください。

• フラッシュしないサンプル（注：表示されるまでに10秒ほどかかります）
• フラッシュするサンプル

２．ファイル書き込みでフラッシュする

ファイル書き込みでフラッシュするのも、標準出力のときと同様、2通りあります。

ひとつはIO::Handleを利用する方法です。

#!/usr/bin/perl
 
use IO::Handle;
open my $fh, ">test.txt";
$fh->autoflush;
 
for (my $i=0; $i<10; $i++) {
   print $fh $i;
   sleep(1);
}

または特殊変数「$|」を利用する方法です。

#!/usr/bin/perl
 
open my $fh, ">test.txt";
(select($fh), $|=1);
 
for (my $i=0; $i<10; $i++) {
   print $fh $i;
   sleep(1);
}

他にも色々書き方があるようです。

What does “select((select(s),$|=1)[0])” do in Perl?