Re^5: how to use angle operator with timeout?

This works on *nix:


use strict   ;
use warnings ;

my $timeout_in = 5 ;

eval {
    local $SIG{ALRM} = sub { die "timed_out\n" };
    alarm($timeout_in);
    while(<>) { 
    alarm($timeout_in);
    my $in = $_ ;
    chomp( $in ) ;
    print $in . "\n" ;
    last if( $in eq 'exit' );
    }
    alarm(0) ;
};
if ($@) {
    die( "Hey ... whats with the slow typing ??\n" );
}
[download]

Comment on Re^5: how to use angle operator with timeout? Download Code

Replies are listed 'Best First'.
Re^6: how to use angle operator with timeout? by BrowserUk (Patriarch) on Feb 04, 2013 at 09:38 UTC
Really? Actual tested code on which flavour of *nix & Perl please? Because that seems to contradict anonymonk's reading of the docs? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]
Re^7: how to use angle operator with timeout? by tmharish (Friar) on Feb 04, 2013 at 10:23 UTC
OS: `Linux MYCOMPNAME_REMOVED 3.5.0-23-generic #35-Ubuntu SMP Thu Jan 24 13 +:15:40 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux` [download] Perl: `Summary of my perl5 (revision 5 version 14 subversion 2) configuration +: Platform: osname=linux, osvers=3.2.0-23-generic, archname=x86_64-linux-gnu-t +hread-multi uname='linux komainu 3.2.0-23-generic #36-ubuntu smp tue apr 10 20 +:39:51 utc 2012 x86_64 x86_64 x86_64 gnulinux '` [download] I should add that I use this on production servers on multiple flavors of Ubuntu and have been using this ( Not completely sure here ) since Perl 5.08 or so - definitely works on 5.10 as we have that on some servers.	[reply] [d/l] [select]
Re^8: how to use angle operator with timeout? by BrowserUk (Patriarch) on Feb 04, 2013 at 10:36 UTC
A clear and definitive answer. Thank you. :) With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]


There's more than one way to do things
	PerlMonks