NAME
Net::GrpNetworks - Perl extension to determine in which network group a IP belongs to.
SYNOPSIS
use
Net::GrpNetworks;
$grpnet
= new Net::GrpNetworks();
$grpnet
->add(group name, network block, netmask);
$GroupName
=
$grpnet
->find(IP);
DESCRIPTION
Net::GrpNetworks creates network groups and allows researching for specific IPs discovering in which network group each IP belongs to.
For example:
use
Net::GrpNetworks;
$grpnet
= new Net::GrpNetworks();
$grpnet
->add(
"New York"
,
"210.210.10.0"
,
"255.255.255.0"
);
$grpnet
->add(
"New York"
,
"210.210.11.0"
,
"255.255.255.0"
);
$grpnet
->add(
"New York"
,
"210.210.12.0"
,
"255.255.254.0"
);
$grpnet
->add(
"Rio de Janeiro"
,
"200.255.49.128"
,
"255.255.255.128"
);
$grpnet
->add(
"Rio de Janeiro"
,
"200.255.50.0"
,
"255.255.252.0"
);
$grpnet
->add(
"Rio de Janeiro"
,
"200.255.60.0"
,
"255.255.255.0"
);
$City
=
$grpnet
->find(
"200.255.60.10"
);
# $City will be set to "Rio de Janeiro"
if
(
$City
=
$grpnet
->find(
"210.210.9.5"
) )
# Will be false
COPYRIGHT
Copyright (c) 1997 Andre Rodrigues Viegas. All rights reserved. This
program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
AUTHOR
Andre R. Viegas, andre.viegas@writeme.com.br