Linux Certif

Toute la documentation sur la certification Linux LPI

Net::Subnets.3pm

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);
     my $listref = $sn->list(\($lowipref, $highipref));
 
 

DESCRIPTION

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

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 );
 
 

This is a simple example for list generation:

     use Net::Subnets;
 
     my $lowip  = '192.168.0.1';
     my $highip = '192.168.0.100';
 
     my $sn = Net::Subnets->new;
     my $listref = $sn->list(\($lowip, $highip));
     foreach my $address (@$listref) {
         # do something cool
     }
 
 

METHODS

new

     my $subnets = Net::Subnets->new;
 
     Creates an "Net::Subnets" object.
 
 

subnets

     $subnets->subnets([qw(10.0.0.0/24 10.0.1.0/24)]);
 
     The C<subnets> method lets you prepare a list of CIDR subnets.
 
 

check

     my $match = $subnets->check(\$address);
 
     The C<check> method lets you check an IP address against the previously
     prepared subnets.
 
 

range

     my ($lowest, $highest) = $subnets->range(\$subnet)
 
     The C<range> method lets you calculate the IP address range of a subnet.
 
 

list

     my $list = $subnets->list(\$lowest, $highest);
 
     The C<list> method lets you calculate a list containing all IP addresses
     in a given range.
 
 

AUTHOR

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

COPYRIGHT AND LICENSE

Copyright (C) 2003-2009, Sebastian Riedel.

This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0.