You want the LWP::UserAgent module. Here's some example code from the manpage:
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $response = $ua->get('http://search.cpan.org/');
if ($response->is_success) {
print $response->content; # or whatever
}
else {
die $response->status_line;
}
This will try connect to the URL 'http://search.cpan.org' and $response->is_success will be true if the HTTP GET request was successful.
As an FYI a ping is a special sort of request sent to a machine in order to determine if it is accepting network connections. It's very often used in port scanning, and many people will turn off ping response in order to make their machines appear to be down to the casual ping scanner. Lack of a ping response doesn't mean a machine is down, and existence of a ping response doesn't mean that the machine is accepting HTTP requests.
Hope that this helps. :)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|