windows - 如何更新 Perl 命令行应用程序上的进度显示？

Question

我有一个小的 Perl 脚本(在 Windows 上)，它可以为我检查一些文件，作为我日常业务的帮助。目前它打印出类似...

0%
25%
50%
75%
Complete

但我记得我过去使用的脚本不会逐行打印进度，但会更新显示器上的输出，大概是通过将光标移回并重叠打印什么在那里。

有人知道需要什么魔法吗？可移植性对我来说并不重要，脚本是一次性的。

Answer 1

你可以使用 curses并制作一个漂亮的进度条。

编辑:或者做这样的事情:

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