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:

The best of DZone straight to your inbox.

SEE AN EXAMPLE
Please provide a valid email address.

Thanks for subscribing!

Awesome! Check your inbox to verify your email so you can start receiving the latest in tech news and resources.
Subscribe

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

{{ parent.tldr }}

{{ parent.urlSource.name }}