perl的输出缓冲

来源：互联网发布：php和python哪个工资高编辑：程序博客网时间：2024/05/01 03:00

perl的输出缓冲

今天写一个小脚本的时候，需要即时输出当前进度到命令行上，并即时将重要数据写入报告文件中。但是perl默认是有输出缓冲的，显示到命令行上必须以/n结尾才行，输出到文件中，回车了都不行，非得要等缓冲区满了。
代码:

select( STDOUT );
$| = 1;
open( REPORT, ">report.txt" ) || die "create report error: $!/n";
select( REPORT );
$| = 1;
select( STDOUT );

在写入报告和输出进度之前这样处理一下就可以了。第一句是选择标准输出句柄为当前默认输出句柄，并设置为不缓冲方式。然后选择文件句柄为默认输出句柄，设置为不缓冲模式。再最后重新设置STDOUT为默认输出句柄，少了这一句的话，标准输出就被重定向到文件里面去了。