Запись на стандартный вывод

Question

У меня есть процесс perl, который работает каждый день автоматически, он занимает около 20 минут и финиш и печатает каждую операцию, чтобы сообщить, что каждая операция занимает около секунды.

Иногда кажется, что stdout застрял, и мне нужно нажать «Ввод», чтобы процесс продолжал работать.

может ли кто-нибудь испытать такую ​​проблему/предложение, как справиться с этой проблемой?

ниже снимок моего кода:

foreach (<>) { 
    chomp; 
    if (validate($_) == 0) { 
     print "$_ validated with Success\n"; 
    } 
    else { 
     print "$_ validated with failure\n"; 
    } 
} 

Answer 1

Как пишет Билл Ruppert, вам нужно использовать while (<>) вместо foreach (<>) для того, чтобы позволить print заявления должны быть выполнены после того, как каждая строка ввода считывается.

Как пишет Joop Eggen, вы должны убедиться, что ваш стандартный вывод не записан в блоках, чтобы убедиться, что каждая строка вывода появляется сразу после выдачи выписки print. Это можно сделать, установив переменную $|.