第一章:设置无缓冲

#用select, 要先select一个句柄， 用完后记得select回原来的
open FILE, ">log.txt";
select FILE;
$| = 1;
#$|为true时设置FILE为无缓冲
print FILE "The log file data";
#print "The log file data";
select STDOUT;
#上面的打印不会经过缓冲而直接写进文件log.txt
close FILE;

#方法二
use IO::Handle;
open DATA, ">err.log";
DATA->autoflush(1);
print DATA "login errot";
DATA->close;

# 其实第6行的文件句柄可以去掉

# 如果你选择了一个句柄， print默认的输出方向就是你select那个

# 最好用完后恢复stdout