Limit perl code execution time

Forum Home

FAQ

Search

Memberlist

Register

Profile

Log in to check your private messages

Register - Not registered yet? Got something to say? Join HTML Code Tutorial!

Limit perl code execution time

HTML Help Forum Index -> Perl

View previous topic :: View next topic

Author

Message

zylstra
Site Admin

Joined: 10 May 2004
Posts: 130

Posted: Tue Jun 27, 2006 5:02 pm Limit perl code execution time

Reply with quote

I need to limit the execution time of a particular line of code because it sometimes crashes the script:

Code:

eval {$whois_info = `whois $domain`};

I would like the script to continue running even if the script stops that particular line of code.

How do I accomplish this?

zylstra
Site Admin

Joined: 10 May 2004
Posts: 130

Posted: Tue Jun 27, 2006 11:40 pm

Reply with quote

I found the answer with

Code:

$SIG{ALRM} = \&timed_out;
eval {
alarm (10);
$whois_info = `whois $domain`;
alarm(0); # Cancel the pending alarm if whois responds.
};
if ($@ =~ /GOT TIRED OF WAITING/) {
print " Whois timed out: $@ ";
}

sub timed_out {
die "GOT TIRED OF WAITING";
}

Display posts from previous:

	HTML Help Forum Index -> Perl	All times are GMT - 8 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

HTML Help Archive
Powered by phpBB © 2001, 2005 phpBB Group

HTML Help topic RSS feed

DARFUR

Get a Stop the Genocide poster at SaveDarfur.org.
Also see Eyes on Darfur.

HOSTING / DESIGN

$1.99 Domain Registration
Cheap Web Hosting
Website Templates

MAKE MONEY

Sell Domain Names
Sell Website Templates

| | | | |