Posted By

jsinix on 12/01/14

Tagged

perl
user

Versions (?)

Last Edited at 12/01/14 03:26am

Statistics

Viewed 1352 times

Favorited by 0 user(s)

Related snippets

Perl get user input with timeout

/ Published in: Perl

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.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

#!/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 ($@) {
        die $@ if $@ ne "timeout reading from keyboard";
        $answer = 'No answer given';
    }
    return $answer;
}
 
my $data = ask_data('10');
print "\nThe answer is: " . $data . "n";