/ 
Net-Subnets-0.16
/ Net::Subnets

NAME

Net::Subnets - Computing subnets in large scale networks

SYNOPSIS

use Net::Subnets;
my $sn = Net::Subnets->new;
$sn->subnets(\@subnets);
if (my $subnetref = $sn->check(\$address)) {
    ...
}
my ($lowipref, highipref) = $sn->range(\$subnet);

DESCRIPTION

Very fast matches large lists of IP addresses against many CIDR subnets and calculates IP address ranges.

The following functions are provided by this module:

new()
    Creates an "Net::Subnets" object.
    It takes no arguments.

subnets(\@subnets)
    The subnets() function lets you prepare a list of CIDR subnets.
    It takes an array reference.

check(\$address)
    The check() function lets you check an IP address against the
    previously prepared subnets.
    It takes a scalar reference and returns a scalar reference to
    the first matching CIDR subnet.

range(\$subnet)
    The range() function lets you calculate the IP address range
    of a subnet.
    It takes a scalar reference and returns two scalar references to
    the lowest and highest IP address.

This is a simple and efficient example for subnet matching:

use Net::Subnets;

my @subnets   = qw(10.0.0.0/24 10.0.1.0/24);
my @addresses = qw(10.0.0.1 10.0.1.2 10.0.3.1);

my $sn = Net::Subnets->new;
$sn->subnets( \@subnets );
my $results;
foreach my $address (@addresses) {
    if ( my $subnetref = $sn->check( \$address ) ) {
        $results .= "$address: $$subnetref\n";
    }
    else {
        $results .= "$address: not found\n";
    }
}
print($results);

This is a simple example for range calculation:

use Net::Subnets;

my @subnets = qw(10.0.0.0/24 10.0.1.0/24);

my $sn = Net::Subnets->new;
my $results;
foreach my $subnet (@subnets) {
    my ($lowipref, $highipref) = $sn->range($subnet);
    $results .= "$subnet: $$lowipref - $$highipref\n";
}
print($results);

AUTHOR

Sebastian Riedel (sri@cpan.org), Juergen Peters (juergen.peters@taulmarill.de)

COPYRIGHT

Copyright 2003 Sebastian Riedel & Juergen Peters. All rights reserved.

This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.