写入文件句柄不适用于睡眠

Question

当我突然意识到我无法写入文件时，我正在编写脚本。

我已经能够把它归结为这段代码：

use strict;
use warnings;

open(my $out, '>>', 'log.txt') or die "$!";
print $out "test";

while(1){
    sleep 1;
}

我尝试通过设置 $| 来取消缓冲= 1。

我正在开发一个每 10 分钟运行一次的程序，所以我使用 sleep 来等待 10 分钟。

Answer 1

除非您在选择 $out 时将 $| 设置为 1，否则您不会执行任何操作。

如果你的 perl 不是古代的，写

$out->autoflush(1);

如果你的 perl 是古老的，写

my $prev = select($out);
$| = 1;
select($prev);