IP番号はPerlで同じサブネットにある場合はどうすれば確認できますか?
質問
IP番号はPerlで同じサブネットにある場合はどうすれば確認できますか?私が使用してください NetAddr :: IP の?
感謝します。
他のヒント
あなたはこれを試すことができます:
#!/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;
}
所属していません StackOverflow