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.

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.
 
     list( \$lowip, \$highip )
         The list() function lets you calculate a list containing all IP
         addresses in a given range.
         It takes two scalar references and returns a reference to a list
         containing the IP addresses.
 
 

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
     }
 
 

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.