Over a million developers have joined DZone.

Check IP

·

use NetAddr::IP;
($ARGV[0] && $ARGV[1]) || die "usage: $0 Addr Range\n";
my $ip = new NetAddr::IP $ARGV[0];
$ip->within(new NetAddr::IP $ARGV[1]) ? exit 0 : exit 1;
Topics:

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}