Perl:打印回行首

Question

好吧，所以我想做的就是在命令行中打印出完成的百分比，现在，我希望它可以简单地“更新”屏幕上显示的数字。因此，请以某种方式返回到行的开头并更改它。

例如，Windows relog.exe 命令行实用程序(可以将 .blg 文件转换为 .csv 文件)可以执行此操作。如果运行它，它将显示完成百分比。

现在这可能是用 C++ 编写的。我不知道这在 Perl 中是否也可行？

Answer 1

使用“\r”或“\015”八进制(又名“返回插入符”又名“Carriage Return”字符，源自打字机时代:)

> perl5.8 -e 'print "11111\r222\r3\n";'
32211
> perl5.8 -e 'print "11111\015222\0153\n";'  
32211

只是不要忘记打印至少与已打印的最长字符串一样多的字符，以覆盖任何旧字符(正如您在上面的示例中看到的，不这样做将保留旧字符)。

另一件事需要注意的是，正如迈克尔在评论中指出的那样，在这些打印发生时需要打开自动刷新，以便输出不会在处理最后等待换行符。

更新:请注意，另一个答案中推荐的 013 八进制字符实际上是垂直制表符:

> perl5.8 -e 'print "11111\013222\0133\n";'    
11111
     222
        3