Перенести построчный вывод perl в файл с помощью команды unix

Question

Я создал небольшую программу на Perl в среде Unix:

#! /usr/bin/perl
use strict; 
use warnings; 

my $counter = 0;  
while ($counter < 10) {
  printf "%s\n", $counter;
  $counter++;  
  sleep(2);
}

Если я начну с командной строки, она будет отсчитываться от 0 до 9 через 20 секунд. Это то, что я хочу.

Но если я использую команду для переноса вывода в файл (myprog.pl >> myprog.log), то результат будет записан сразу в конце программы (через 20 секунд).

Я хочу, чтобы программа записывала его вывод построчно в файл. Так что через 10 секунд должно быть 5 строк в myprog.log. Есть ли способ сделать это?

Answer 1

Это ожидаемое поведение буферизации, но ваш скрипт может изменить это .

#! /usr/bin/perl
use strict; 
use warnings; 

$| = 1; # <------- Enable autoflush    

my $counter = 0;  
while ($counter < 10) {
  printf "%s\n", $counter;
  $counter++;  
  sleep(2);
}

Answer 2

Интересная дискуссия на эту тему: http://perl.plover.com/FAQs/Buffering.html