Net::Ping::External - Cross-platform Perl interface to "ping" utilities


In general:

  use Net::Ping::External qw(ping);

Some examples:

  use Net::Ping::External qw(ping);
  # Ping a single host
  my $alive = ping(host => "");
  print " is online" if $alive;
  # Or a list of hosts
  my @hosts = qw(;
  my $num_alive = 0;
  foreach (@hosts) {
    $alive = ping(hostname => $_, timeout => 5);
    print "$_ is alive!\n" if $alive;
  print "$num_alive hosts are alive.\n";
  # Using all the fancy options:
  ping(hostname => "", count => 5, size => 1024, timeout => 3);


Net::Ping::External is a module which interfaces with the "ping" command on many systems. It presently provides a single function, ping(), that takes in a hostname and (optionally) a timeout and returns true if the host is alive, and false otherwise. Unless you have the ability (and willingness) to run your scripts as the superuser on your system, this module will probably provide more accurate results than Net::Ping will.


ping() OPTIONS

This module is still "alpha"; it is expected that more options to the ping() function will be added soon.


Support currently exists for interfacing with the standard ping utilities on the following systems. Please note that the path to the `ping' should be somewhere in your PATH environment variable (or your system's closest equivalent thereof.) Otherwise, Net::Ping::External will be unable to locate your system's `ping' command.

More systems will be added as soon as any users request them. If your system is not currently supported, e-mail me; adding support to your system is probably trivial.


This module should be considered beta. Bugs may exist. Although no specific bugs are known at this time, the module could use testing on a greater variety of systems.

See the warning below.


This module calls whatever "ping" program it first finds in your PATH environment variable. If your PATH contains a trojan "ping" program, this module will call that program. This involves a small amount of risk, but no more than simply typing "ping" at a system prompt.

Beware Greeks bearing gifts.


Alexandr Ciornii (alexchorny AT, Colin McMillen (colinm AT

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


Dan Moore contributed command-line options and code for NeXT, BeOS, HP-UX, and BSD/OS.

Jarkko Hietaniemi contributed a huge list of command-line options and results for the `ping' command on 9 different systems.

Randy Moore contributed several patches for Win32 support.

Marc-Andre Dumas contributed a patch for FreeBSD support.

Jonathan Stowe fixed a bug in 0.09 that prevented the module from running on some systems.

Numerous people sent in a patch to fix a bug in 0.10 that broke ping on Windows systems.

Peter N. Lewis contributed a patch that works correctly on Mac OS X 10.2 (and hopefully other versions as well).