http://www.perlmonks.org?node_id=615561


in reply to Ping sweep with reporting

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re^2: Ping sweep with reporting
by cengineer (Pilgrim) on May 15, 2007 at 14:54 UTC
    Depending on the output from your ping program (/usr/sbin/ping), you may have to adjust the line:
    if ($ping_out !~ /is alive/){ print "$_ isn't pinging\n"; }
    to something like
    if ($ping_out !~ /bytes from/){ print "$_ isn't pinging\n"; }