For Programmers: Free Programming Magazines  


Home > Archive > PERL Beginners > July 2005 > Pinging from perl script









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Pinging from perl script
Arjun Mallik

2005-07-28, 9:07 am


Hi ,
I have to verify whether the servers [windows , Linux ] which are
integrated to my Unix machine are alive or not .
=0D
I am using Net::Ping.=0D
Problem i am facing is , i am able to verify all Unix machines
integrated .=0D
And not the Windows & Linux machines which integrated to my UNIX box.
=0D
please Help me if you are aware.
=0D
-------------clip-----------
use Net::Ping;
my $p =3D Net::Ping->new();
$host=3D"guis1.w2kr41.r41.xxx.xxxx.com";
print "HOST is --> $host \n";
if ( $p->ping($host) )
{
print "pingable host --> $host\n";
=0D
}
-----------clip---------------
=0D
Thanks
Arjun=0D

Deserve before you desire

=0D



Confidentiality Notice=0D

The information contained in this electronic message and any attachments to=
this message are intended
for the exclusive use of the addressee(s) and may contain confidential or=
privileged information. If
you are not the intended recipient, please notify the sender at Wipro or=
Mailadmin@wipro.com immediately
and destroy all copies of this message and any attachments.
Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com