¿Cómo puedo comprobar si los números IP están en la misma subred con Perl?

Question

¿Cómo puedo comprobar si los números IP están en la misma subred con Perl? ¿Debo usar NetAddr :: IP ?

Gracias.

Answer 1

Parece que los :: módulo de Perl subredes haría esto. Hay un ejemplo en ese enlace que he dado. Si no desea utilizar CPAN para obtener el módulo, tanto Debian y Ubuntu tienen un LIBNET-subredes-perl paquete.

Answer 2

Usted podría intentar esto:

#!/usr/bin/perl

use warnings;
use strict;
use NetAddr::IP;

my $first  = NetAddr::IP->new('10.0.0.1/24');
my $second = NetAddr::IP->new('10.0.0.5/32');

if ($second->within($first)) {
    printf "%s is within %s\n", $second, $first;
} else {
    printf "%s is not within %s\n", $second, $first;
}