perl - 如何在不清除 Perl 的情况下更新屏幕上的值？

Question

我想在屏幕上显示一组值并每 5 秒更新一次该值。我不想清除屏幕。

例如:

小时:1

分钟 : 30

秒:45

在这里，值应该相应地改变。

我应该如何在 Perl 中做到这一点？

问候，
阿南丹

Answer 1

您是在谈论更好地控制屏幕上的打印位置吗？那么您可能想查看 Term::Cap模块。

穷人在一行中执行此操作的方法是使用 \r继续覆盖同一行。

while ($t>0) {
    # note no new line at the end of printf statement
    printf "\rHours: %d  Minutes: %d  Seconds: %d     ", $t/3600, ($t/60)%60, $t/60;
    sleep 5;
    $t -= 5;
}

编辑 这是在我的系统上工作的东西。您的终端的功能可能会有所不同。

require Term::Cap;
$terminal = Tgetent Term::Cap { TERM => cygwin, OSPEED => 9600 };
$terminal->Trequire("up");  # move cursor up
$UP = $terminal->Tputs("up");
$t = 500;
while ($t > 0) {
    printf "Hour: %d    \n", $t/3600;
    printf "Minute: %d    \n", ($t/60)%60;
    printf "Second: %d    \n", $t%60;
    print $UP,$UP,$UP;
    sleep 5;
    $t -= 5;
}