[原]ping一段网络的perl脚本

夏末秋初

　　ping是一个很常用的网络检测脚本，比较唯一不足的是一次只能检测一个IP地址。我用perl包装了一下，使得它可以ping一段网络地址：
#! /usr/bin/perl -w
use strict;
die print "usage : range_ping.pl 192.168.1.1 192.168.1.100 \n"
."Powered By killkill \n\n"
if scalar @ARGV != 2 ;
my ( $start_ip , $end_ip ) = @ARGV;
my $start = &ip2int($start_ip);
my $end   = &ip2int($end_ip  );
my $i = $start;
for ( $start .. $end )
{
my $ip = &int2ip($_);
my @val = `ping -c1 -W1 $ip;echo \$?`;
if ($val[$#val] == 0 )
{
print " + $ip \n";
}
else
{
print " | $ip \n";
}
}
sub ip2int
{
$_[0] =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
return (16777216*$1)+(65536*$2)+(256*$3)+$4;
}
sub int2ip
{
return ($_[0]/16777216)%256 . '.' .
($_[0]/65536)%256    . '.' .
($_[0]/256)%256      . '.' .
$_[0]%256;
}
　　功能很简单，但是很有用。