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

发布于 2024-07-08 19:36:26 字数 233 浏览 6 评论 0原文

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

0%
25%
50%
75%
Complete

但我记得我过去使用过的脚本并没有逐行打印进度，而是更新了显示屏上的输出，大概是通过移动光标返回并套印那里的内容。

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

原文

I have a little Perl script (On Windows) that checks some files for me as an aid to my day-to-day business. At the moment it prints out something like...

0%
25%
50%
75%
Complete

But I can remember scripts I've used in the past that didn't print progress on a line-by-line basis, but which updated the output on the display, presumably by moving the cursor back and over-printing what was there.

Anyone know what magic is required? Portability isn't important to me, the script is quite disposable.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

万劫不复 2024-07-15 19:36:26

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

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

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

You could use curses and make a nice progress bar.

EDIT:
Or do something like this:

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

回复收藏 0 原文