在 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';
}