Perl获取用户输入超时

Posted 2021-02-23

Author: jsinix([email protected])

This is a script that demonstrates how to get input from keyboard with a timeout. This can be useful in many places.

#!/usr/bin/perl
# This is a script that demonstrates 
# how to get input from keyboard 
# with a timeout. This can be useful
# in many places.
 
use strict;
use warnings;
 
sub ask_data {
    my ($tout) = @_;	
    my $answer;
 
    print "Enter the data before $tout seconds: ";
    eval {
        local $SIG{ALRM} = sub { die "timeout reading from keyboard" };
        alarm $tout;
        $answer = <STDIN>;
        alarm 0;
        chomp $answer;
    };
    if ([email protected]) {
        die [email protected] if [email protected] ne "timeout reading from keyboard";
        $answer = 'No answer given';
    }
    return $answer;
}
 
my $data = ask_data('10');
print "
The answer is: " . $data . "n";