Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Ping sweep with reporting

by StarkRavingCalm (Sexton)
on May 15, 2007 at 14:40 UTC ( #615561=note: print w/ replies, xml ) Need Help??


in reply to Ping sweep with reporting

Here are my results (server names and IPs have been changed) root@stewie ~# perl pingsweep_pm.pl server1.domain.com isn't pinging server2.domain.com isn't pinging server3.domain.com isn't pinging root@stewie ~# ping server1.domain.com PING server1.domain.com (0.0.0.0) 56(84) bytes of data. 64 bytes from server1.domain.com (0.0.0.0): icmp_seq=0 ttl=62 time=0.199 ms 64 bytes from server1.domain.com (0.0.0.0): icmp_seq=1 ttl=62 time=0.263 ms 64 bytes from server1.domain.com (0.0.0.0): icmp_seq=2 ttl=62 time=0.198 ms Any ideas? Is there a perl module I am missing?


Comment on Re: Ping sweep with reporting
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"; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://615561]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2015-07-05 07:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls