use strict; use Net::Ping; $|++; my $net = '194.153.145.'; my @hosts = 1..254; $_ = $net.$_ for @hosts; my $p = Net::Ping->new("icmp"); $p->{'timeout'} = 0.003; for (@hosts) { print "$_ is "; print "NOT " unless $p->ping($_); print "reachable.\n"; } print time - $^T
In reply to Re: Net::Ping with threads
by sh1tn
in thread Net::Ping with threads
by Spesh00
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |