perl 实时写入文件

#!/usr/bin/perl
$val = 1000;

open (FH,">>file");
select FH;
$|=1;

for ($i=0;$i<=$val;$i++) {
print   "$i\n";
sleep(1);

}
close FH;

#使用select操作符来改变默认的文件句柄
#将特殊变量$|设定为1，就会使当前的默认文件句柄在每次进行输出操作后，立刻刷新缓冲区。