珀尔。如何使输出在几秒钟后消失？

Question

我提示用户输入正确答案，例如:

/> 13 + 7 ?

有什么方法可以让这个输出在 2 秒后消失吗？

..感谢您的任何建议

Answer 1

我认为你要求结合一些东西:

1)如何删除一条线

2)如何等待输入一段时间然后放弃等待(即计时器)

以下代码将执行您想要的操作(还有其他方法可以完成上述两项任务，但下面显示了上述每个任务的一种方法):

use strict; use warnings;
use IO::Select;

my $stdin = IO::Select->new();
$stdin->add(\*STDIN);

# always flush
$| = 1;

my $question = "/> 7 + 3 ? ";

print $question;
if ($stdin->can_read(2)) {
    print "you entered: " . <STDIN>;
} else {
    print "\010" x length($question);
    print " " x length($question);
    print "too late\n";
}