Re^2: simple timeout

Well I'm actually trying to probe a number of servers using WMI, it's about 300 servers and occassionaly one will not respond causing the script to hang indefinetely.

For your alarm suggestion, I've tried trying to work with the alarm funtion but had no joy, for example the following doesn't work.

(using my $buf=<>; instead of the wmi stuff)

$SIG{'ALRM'}=\&time_out;

while(1) {

  eval {
    alarm(5);
    my $buf=<>;
    alarm(0);
  };

  print "next\n";

}

exit;

sub time_out {
    print "fed up waiting, next please\n";
    die "FED UP WAITING";
}
[download]

The script should wait for user input, and get 'fed up' after 5 seconds. Problem being the alarm never seems to get called.

Comment on Re^2: simple timeout Download Code

Replies are listed 'Best First'.
Re^3: simple timeout by disciple01 (Novice) on Nov 08, 2004 at 14:06 UTC
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?	[reply] [d/l]
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]