Как я могу обновить отображение прогресса в приложении командной строки Perl?

Question

У меня есть небольшой Perl-скрипт (в Windows), который проверяет некоторые файлы для меня в качестве помощи в повседневной работе. На данный момент он печатает что-то вроде ...

0%
25%
50%
75%
Complete

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

Кто-нибудь знает, какая магия требуется? Переносимость не важна для меня, сценарий вполне одноразовый.

Answer 1

Вы можете использовать curses и сделать хороший индикатор прогресса.

EDIT : Или сделайте что-то вроде этого:

print "#####                                 [ 10%]\r";
# Do something
print "##########                            [ 20%]\r";
# Do something else
print "###############                       [ 30%]\r";
# Do some more
# ...
# ...
# ...
print "##################################### [100%]\n";
print "Done.\n";

Answer 2

Вас могут заинтересовать Умные комментарии . Это было бы, вероятно, проще, чем кодировать Ваши собственные индикаторы выполнения.

Answer 3

Если вам когда-нибудь понадобится что-то сделать в Perl, очень вероятно, что кто-то это сделал и загрузил в CPAN. Посмотрите на некоторые модули с "progress" в их названии .

Answer 4

В дополнение к другим ответам \ r вернется к началу текущей строки

Answer 5

Вы должны быть в состоянии напечатать символ возврата на клавишу '\ b', чтобы переместить курсор назад, чтобы вы могли перезаписать то, что вы печатали ранее.

Answer 6

Я не знаю, работает ли это в Perl, но в C / C ++ вы можете использовать

\b

для возврата. Используя несколько из них, вы можете переместить курсор, чтобы перезаписать старые значения.