Is there a script which is cross-platform and can detect if a remote machine is ALIVE/Reachable without using the NET::PING?
Im currenlty using a Redhat Linux and the PING command there seems to also "HANG" on unreachable machines, thats why i just cant use backticks for this.
The reason why i want to detect if a certain machine is alive/reachable is because when my TCP
IO::SOcket CLIENT connects to a certain "UNREACHABLE MACHINE" it also hangs. i dont want to place a DIE after because i still have other commands that need to be executed after.
Heres a sample code:
sub doit
{
$host="$aa.$bb.$cc.$dd";
$port="23";
$remote = IO::Socket::INET -> new (
Proto => "tcp",
PeerAddr => $host,
PeerPort => $port,
Timeout => 1
);
$| = 1;
if ($remote)
{
close $remote;
print "Socket ready...";
}
else
{
print "Try again!";
}
}
Although the TIMEOUT has been set to 1. It still takes too much time to wait for it to die and go to the next command. probably around 5 minutes.
So is there any workaround for this?
Shutdown ($remote, 1) doesnt seem to work, perl says that $remote is an uninitialized variable.
$remote->close; doesnt seem to work either?
Please help... connecting a socket on an UNREACHABLE MACHINE takes too much time and TIMEOUT doesnt help out that much either. it seems as if my script HANGed!
tnx...
Lovelots, Cherry
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.