perl - IP 番号が Perl と同じサブネットにあるかどうかを確認するにはどうすればよいですか?

Question

IP 番号が Perl と同じサブネットにあるかどうかを確認するにはどうすればよいですか?

NetAddr::IPを使用できますか?

Answer 1

これを試すことができます：

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

Answer 2

Net::Subnet Perl モジュールがこれを行うようです。私が与えたそのリンクに例があります。CPAN を使用してモジュールを取得したくない場合は、Debian と Ubuntu の両方に libnet-subnets-perl パッケージがあります。