perl的输出缓冲

 

perl的输出缓冲

今天写一个小脚本的时候，需要即时输出当前进度到命令行上，并即时将重要数据写入报告文件中。但是perl默认是有输出缓冲的，显示到命令行上必须以/n结尾才行，输出到文件中，回车了都不行，非得要等缓冲区满了。 代码: select( STDOUT ); $| = 1; open( REPORT, ">report.txt" ) || die "create report error: $!/n"; select( REPORT ); $| = 1; select( STDOUT );       在写入报告和输出进度之前这样处理一下就可以了。第一句是选择标准输出句柄为当前默认输出句柄，并设置为不缓冲方式。然后选择文件句柄为默认输出句柄，设置为不缓冲模式。再最后重新设置STDOUT为默认输出句柄，少了这一句的话，标准输出就被重定向到文件里面去了。