in reply to How to set timer in perl

I've only needed alarm once, and this worked: 

eval {
   local $SIG{__DIE__}  = 'DEFAULT';
   local $SIG{ALRM}     = sub { die "timeout" };
   alarm 2700;
   # do things
   alarm 0;
};
if ($@) {
   if ($@ =~ "timeout" ) {
      ...
   } else {
      print "$@\n";
   }
   alarm 0;
}

[download]

Replies are listed 'Best First'.
Re^2: How to set timer in perl
by perlfan (Parson) on Jun 13, 2013 at 16:05 UTC
    The documented example for alarm has a "\n" at the end of the die string, but also checks $@ with 'eq', not a regex like you are. Just thought I would point that out.
[reply]

In Section Seekers of Perl Wisdom