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


in reply to Ping sweep with reporting

That worked. Changing to "bytes from" and also changing to /bin/ping. I am not getting any output though.

Replies are listed 'Best First'.
Re^2: Ping sweep with reporting
by cengineer (Pilgrim) on May 15, 2007 at 15:49 UTC
    Try this:
    if ($ping_out !~ /bytes from/) { print "$_ isn't pinging\n"; } else { print "$_ is up\n"; }