Thanks for the reply, but sometimes I don't know where is the code that cause the infinite loop. Is there such as thing as perl configuration file, to set the execution time for any code, any where in the program just like php.ini file. Thanks.
----- Original Message ----
From: Chas. Owens <chas.owens@gmail.com>
To: Keenlearner <yingun@gmail.com>
Cc: beginners@perl.org
Sent: Friday, April 11, 2008 16:05:07
Subject: Re: Perl maximum execution time
On Thu, Apr 10, 2008 at 9:25 PM, Keenlearner <yingun@gmail.com> wrote:
> Hello, I have had been programming in PHP for a while, new to perl. I
> got a perl code bug where it will go to infinite loop. So is there a
> maximum execution time that I could set in perl just like in PHP ?
> Thanks
snip
You can set an signal to go off after X seconds with the alarm* function:
#!/usr/bin/perl
use strict;
use warnings;
my $timeout = 5*60; #timeout after five minutes
eval {
local $SIG{ALRM} = sub { die "timeout\n" };
alarm $timeout;
#stuff you want to run in under five minutes
};
die unless $@ eq "timeout\n" if $@;
* http://perldoc.perl.org/functions/alarm.html
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/
Send instant messages to your online friends http://uk.messenger.yahoo.com
Send instant messages to your online friends http://uk.messenger.yahoo.com
Thread Next