超时perl中的用户输入

Question

我想提示用户输入，在一段时间后，如果没有响应，脚本必须退出。我有这个代码

eval {
        local $SIG{ALRM} = sub { die "timeout getting the input \n" };
        alarm 5;
        $answer = <STDIN>;
        alarm 0;
        chomp $answer;
    };
    if ($@) {
        #die $@ if $@ ne "timeout getting the input\n";
        $answer = 'A';
    }

警报超时按预期工作，但我想在每秒递减一次后再添加一个打印声明，类似于倒计时（比如10秒说“10 ... 9 .. 8 ..”） 任何人都可以帮助如何将此功能与超时一起嵌入。

由于

Answer 1

# disable output buffering
$| = 1;

my $answer;
eval {
        my $count = 10;
        local $SIG{ALRM} = sub {
          # print counter and set alaram again
          if (--$count) { print "$count\n"; alarm 1 } 
          # no more waiting
          else { die "timeout getting the input \n" }
        };
        # alarm every second
        alarm 1;
        $answer = <STDIN>;
        alarm 0;
        chomp $answer;
};
if ($@) {
        #die $@ if $@ ne "timeout getting the input\n";
        $answer = 'A';
}