perl - 实时更新输出到 unix

Question

我确定这很常见，但我在谷歌上找不到任何东西......

我正在使用 Perl，并且正在 UNIX 中运行我的程序。在我的程序中的某一时刻，我正在打印代表找到的正则表达式匹配数的数字。无论如何，输出是这样的..

1
2
3
4 
5

ETC..

它最终是一个很长的列表，所以如果你想到达输出的顶部或底部，你必须做大量的滚动......

我的问题是如何让列表输出实时更新，以便列表输出保持在一行。以便1更改2对3等的更改。

感谢帮助！

Answer 1

这取决于很多事情，但\r在字符串中应该将光标返回到行首。

Answer 2

首先，不要忘记在 Perl 中取消缓冲输出：

$|=1;

然后尝试：

$(tput clear);

将光标放在终端窗口的顶部。

尝试输入：

tput clear

进入您的终端，看看是否会清除屏幕并将光标放在左上角。如果没有，请尝试键入：

clear

清除屏幕并将光标移至“主页”位置。