Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

how to make a ping network by using perl which giving the output all the host that alive and die on the network .. KINDLY TO HEAR FROM YOU SOON

Replies are listed 'Best First'.
Re: ping network
by nardo (Friar) on Apr 18, 2001 at 09:05 UTC
    Use Net::Ping. From the documentation:
    $p = Net::Ping->new("icmp");
foreach $host (@host_array)
{
    print "$host is ";
    print "NOT " unless $p->ping($host, 2);
    print "reachable.\n";
    sleep(1);
}
$p->close();

    [download]
[reply]
[d/l]
Re: ping network
by grinder (Bishop) on Apr 18, 2001 at 14:04 UTC

    I have a script right here that does the very thing.


    --
    g r i n d e r
[reply]
Re: ping network
by jink (Scribe) on Apr 18, 2001 at 20:37 UTC
    Some time ago, I wrote this.

    Cheers
[reply]

Back to Seekers of Perl Wisdom