Re^3: simple timeout

also the actual `perldoc -f alarm` example doesn't seem to work either.

eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm 2;
    `dir /s c:`;
    alarm 0;
};
[download]

Surely alarm should interrupt the timeconsuming `dir /s c:` (recursive dir) after 2 seconds?

Comment on Re^3: simple timeout Download Code

Replies are listed 'Best First'.
Re^4: simple timeout by zejames (Hermit) on Nov 08, 2004 at 14:30 UTC
Seems that `alarm` is not working on ActiveState (http://aspn.activestate.com/ASPN/docs/ActivePerl/faq/Windows/ActivePerl-Winfaq5.html). I'd advise you to have a look at Time::hires. HTH -- zejames	[reply]
Re^5: simple timeout by disciple01 (Novice) on Nov 08, 2004 at 16:49 UTC
Tried using Time::Hires; `use Time::HiRes qw (ualarm setitimer); ualarm(5000); exit;` [download] returns "ualarm is not a valid Time::HiRes macro at C:/Perl/lib/Time/HiRes.pm line 27." Not having much luck here. =(	[reply] [d/l]