Check out the Net::Ping module. You can find it on PPM.
#################################
use Net::Ping;
$p = Net::Ping->new('icmp',2);
foreach(@computers){
if($p->ping($_){
print "$_ is there.\n";
}else{
print "$_ could not be contacted.\n";
}
}
#################################
Note: Make sure you use icmp as the protocol. That will make sure that you
get the same results as you would by running the PING command at the command
prompt.
-----Original Message-----
From: Najamuddin, Junaid [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 09, 2002 9:23 AM
To: [EMAIL PROTECTED]
Subject: Pinging
hi,
I am new to perl
and looking to ping an oracle database located on an unix machine from win
NT
Has anyone have any idea how this can be accomplished
thanks
junaid
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------------------
This email may contain confidential and privileged
material for the sole use of the intended recipient.
If you are not the intended recipient, please contact
the sender and delete all copies.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
