use Net::Ping;

# fill this array with your ips
my @ips = map { "192.168.1." . $_ } ( 2 .. 254 );
my @ips_up;

use constant { TIMEOUT => 5000, PORT => 7 };
my $p = Net::Ping->new( "syn", TIMEOUT() / 1000 );
$p->{port_num} = PORT;

$p->ping($_) for (@ips);
while ( my ( $host, $rtt, $ip ) = $p->ack ) {
  push @ips_up, $ip;
}

local $" = "\n";
print @ips_up;
[download]

Neat, thanks.

I've read scanned the Net::Ping docs a few times, but I've never picked up on the 'syn' stuff. Nor did I recall seeing this simple solution mentioned here before. Hence my question.

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

Hmmmmmm, Natha Senior, still didn't work, didn't even get any output or errors just back to my C prompt.

Have I scripted something incorrect?

Thanks

These are the changes I made;

use Net::Ping;
my @ips;
while (<DATA>)
{
   chomp;
   push (@ips, $_);
   print "$_\n";
}
# fill this array with your ips
#my @ips = map { "192.168.1." . $_ } ( 2 .. 254 );
my @ips_up;

use constant { TIMEOUT => 500, PORT => 7 };
my $p = Net::Ping->new( "syn", TIMEOUT() / 1000 );
$p->{port_num} = PORT;

$p->ping($_) for (@ips);
while ( my ( $host, $rtt, $ip ) = $p->ack ) {
  push @ips_up, $ip;
}

local $" = "\n";
print @ips_up;

__DATA__
172.24.175.53
172.24.166.15
172.24.184.43
172.24.175.10
172.24.184.46
172.24.175.55
172.24.184.12
[download]

The output

C:\Perl>ping_sweep3.pl

C:\Perl>
[download]

Blackadder

Perhaps your timeout is a little to low?
Try 2000. My example is tested and work at least on linux and OSX.
Boris