Re: enforce timeout in loop

[perlmonkey]

Follow the example in the perldoc page for alarm. Change your for loop to look like:

foreach my $sleepval (@sleepvals) {
  eval {
    local $SIG{ALRM} = sub { die };
    alarm 3;
    sleep($sleepval);
  };
  print strftime "%H:%M:%S", localtime;
  print "\n";
}

[semio]

++perlmonkey. beautiful. This is exactly what I was looking for.

cheers, -dave