/ 
IP-Tools-0.04
/ IP::Tools

NAME

IP::Tools - internet protocol address tools

SYNOPSIS

use IP::Tools;

DESCRIPTION

A variety of tools for handling internet addresses. This module is a miscellaneous collection of things which was released to CPAN only to support another module, IP::China. It may not be suitable for any other purpose, and its interface is liable to change without notice, so please use it with due caution.

FUNCTIONS

$ip_re

if ($ip =~ /$ip_re/) {
}

This regular expression matches an ip address.

$cidr_re

if ($ip =~ /$ip_re/) {
}

This regular expression matches a CIDR.

$ipr_re

This regular expression matches a range of IP addresses

ip_to_int

my $int = ip_to_int ($ip);

Convert an IP address to an integer.

int_to_ip

my $ip = int_to_ip ($int);

Given an integer $int, turn it into an IP address.

cidr_to_ip_range

my ($ip1, $ip2) = cidr_to_ip_range ($ip, $bits);

get_ip_range

my ($ip_range, $error) = get_ip_range ('12.23.34.56/13');

Given a CIDR range, turn it into two ip addresses.

ip_range_to_cidr

ip_range_to_cidr ($ip1, $ip2);

Given two IP addresses, return the difference as a CIDR.

This is not able to split into multiple CIDRs.

read_whitelist

my @list = read_whitelist ('file.txt');

my @list = read_whitelist ('file.txt', 1);

Read a whitelist from the specified file. The format is

# Comment line
127.0.0.0/15

or alternatively

# Comment line
192.168.0.0 - 192.168.255.255

The return value is a list of hash references. Each hash reference contains the following keys:

line

The line number of the IP range.

lower

The lower bound of the IP range.

upper

The upper bound of the IP range.

comment

The most recently seen comment line. Comments can thus be used to store additional information.

search_whitelist

Search a whitelist for an IP. This is a Perl version of the C code in IP::Whitelist.

AUTHOR

Ben Bullock, <bkb@cpan.org>

COPYRIGHT & LICENCE

This package and associated files are copyright (C) 2012-2013 Ben Bullock.

You can use, copy, modify and redistribute this package and associated files under the Perl Artistic Licence or the GNU General Public Licence.