Wie kann ich überprüfen, ob IP-Nummern im selben Subnetz mit Perl sind?

Question

Wie kann ich überprüfen, ob IP-Nummern im selben Subnetz mit Perl sind? Verwende ich NETADDR :: IP ?

Danke.

Answer 1

Scheint, wie das Net :: Subnetze Perl-Modul dies tun würde. Es gibt ein Beispiel zu diesem Link Ich gab. Wenn Sie nicht CPAN verwenden möchten, das Modul zu bekommen, sowohl Debian und Ubuntu haben eine libnet-Subnetze-perl-Paket.

Answer 2

Sie könnten versuchen, diese:

#!/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;
}