Member Avatar for hhheng

I'm trying to send a http request to an url and check the content of the url using following script. However, by just check whether the content is empty or not can't tell whether a site is working.

#use all required modules here;
my $url = "a url here";
my $timeout = 30;
my ($page_content, $res);
eval{
    alarm($timeout);
    $res = $ua->get($url);
    alarm(0);
}
$page_content = $res->content if $res->is_success;

However, the above can't detect a website problem, for example, I got

Fatal error: Call to a member function FetchRow() on a non-object in /home/world/public_html/index.php on line 290

from the $page_content.

So I add this to check the website:

$page_content = 0 if $page_content !~ m{<html\b.*?>.*?<body\b.*?>.*?</body>.*</html>}si;

My question is: is there a function to check whether a website is working except using the above regular expression checks?

Edited by mike_2000_17 because: Fixed formatting
  • 2 Contributors
  • 1 Reply
  • 141 Views
  • 2 Days Discussion Span
  • Latest Post Latest Post by mitchems
Member Avatar for mitchems 
my $url="a url";
use LWP::Simple;
my $content = get $url;
die "Couldn't get $url" unless defined $content;

Content will be defined if the url is reachable.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.