Запись в filehandle не будет работать со сном

Question

Я работал над скриптом, когда вдруг понял, что не могу записать файл.

Я был в состоянии получить его в этом битый коде:

use strict; 
use warnings; 

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

while(1){ 
    sleep 1; 
} 

Я попытался взлетаю буферную установку $ | = 1.

Я работаю над программой, которая работает и делает что-то каждые 10 минут, поэтому я использую сон, чтобы подождать 10 минут.

Answer 1

Если вы не установили $| в 1, а $out был выбран, вы ничего не сделали.

Если Perl не является древним, писать

$out->autoflush(1); 

Если Perl древний, написать

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