Perl语言入门（第8版）

112

｜

第

5

章

文件句柄的数据会先被缓冲，如果要实时发送，设置特殊变量

$|

为

1

即可。它的意

思是，当前所设置的默认输出文件句柄不再缓冲数据，一旦输出立即刷新缓冲区，把

所有数据送往目标文件句柄。对于长时间运行的程序，如果我们需要在终端实时观察

运行情况，那就让它实时输出工作日志：

select LOG;

$| = 1; #

不要将

LOG

的内容保留在缓冲区

select STDOUT;

#

……时间流逝，婴儿已学会走路，斗转星移，然后……

print LOG "This gets written to the LOG at once!\n";

重新打开标准文件句柄

我们之前说过，如果重新打开某个文件句柄（比如要打开名为

FRED

的文件句柄时，

已经有一个处于打开状态的同名

FRED

文件句柄），

Perl

会自动帮你关闭原来那个。

我们也说过，你不应该重复使用

Perl

的

6

个标准文件句柄，除非想用来实现某些特殊

功能。我们还说过，来自

die

和

warn

的信息以及

Perl

内部的出错信息都会被自动送

到

STDERR

。如果以上三个知识能融会贯通，你就会意识到，错误信息不一定都要送到

程序的标准错误输出流，也可以送到文件里：

#

将错误信息写到我自己的错误日志文件中

if ( ! open STDERR, ">>/home/barney/.error_log") {

die "Can't open error log for append: $!";

}

重新打开

STDERR

后，任何从 ...