try pinging the remote site before you call the get method. It will tell you if the remote site is online.. not if any specific service is started.. but if the machine has an ip and is responding.
Net::Ping can help you get it all together. Here is an idea to get you going. This doesn't work but its the general idea.
#!/perl -w
use strict;
use Net::Ping;
#Make object using default TCP
my $p = Net::Ping->new();
#Construct an array of remote sites however you like
#Read from a file or hardcoded etc. (file would be best)
my @remote_sites = qw(111.1.2.22 222.1.11.15);
#Loop through the sites
foreach(@remote_sites)
{
#pseudo-code here because I don't use LWP.. but
#you understand what's going on right?
attempt_LWP_Get if $p->ping($_);
}
-
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.
|