Perl:运行"守护进程"并打印

Question

我正在运行一个全天候运行的脚本.它只是一遍又一遍地循环,非常简单:

while ($daemon) {
    sleep 60; 
    chomp(my $currentDate = `date +%c`);
    print LOG "-- Running trigger: $currentDate --\n";
        system("$triggerCmd >> $daemonLog");
        print LOG "-- Completed trigger test. --\n\n";
}

它工作正常.问题是它不打印最后一行("完成触发测试"),直到60秒睡眠后.它打印运行线,运行命令,打印命令输出,但在打印"完成"之前等待60秒,然后立即再次打印"运行"线.

所以它跟随的过程是这样的:
睡眠60秒
打印"运行触发器"
运行触发器,重定向输出
睡眠60秒
打印完成
打印运行
运行触发器

但是我希望它能做到这一点:
睡眠60
打印"运行触发器"
运行触发器,重定向输出
打印"完成"
睡眠60

我已经尝试将sleep命令移动到循环结束,没有什么区别.虽然这看起来很小,但它实际上是我已经处理了一段时间的问题,它可以解决一些问题来解决它.我正在使用反引号来运行命令并捕获输出,然后打印输出,但这导致了相同的行为.

Answer 1

可能LOG正在缓冲输出.尝试

select LOG;
$| = 1;
select STDOUT;

要么

use IO::Handle;
(*LOG)->autoflush(1);

之后LOG初始化.