Re: perl ping?

[Carter A. Thompson]

Tim,

You'll want to get and use Net::Ping.  I wrote a small routine to
return a status code for an automated system, it uses ping to
determine if a host is reachable.

use Net::Ping;

sub reachable {
    my  $host = shift @_;

     $p = Net::Ping->new("icmp"); 

    (defined $p) || die "Can't create new ping object: $!\n";

     if ($p->ping($host)) {
      $status = 0;
     } else {
      $status = -1;
     }
  return $status;
}

Cheers,

Carter.

----- Original Message ----- 
From: "Tim Rhodes" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, March 19, 2002 2:29 PM
Subject: perl ping?


> i was just wondering how to write a perl ping script. i wrote one and 
> couldn't figure out why it isn't working. this is what i have:
> 
> ===================
> 
> #!/usr/bin/perl
> @results = `ping @ARGV[0]`;
> print @results;
> exit;
> 
> ===================
> 
> thank you!
> Tim.
> 
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs