Почему сетевая маска в Net :: IP установлена ​​неправильно?

Question

Я пытаюсь получить небольшой скрипт для распознавания данных SNMP из запроса, чтобы сохранить их в базе данных. Но я застрял при обработке данных с помощью модуля Net :: IP CPAN. Если я определяю сетевую строку, проблем нет, но у меня есть IP и маска в отдельных строках, и независимо от того, как я присоединяюсь к ним, модуль всегда устанавливает маску сети /32.

Я попробовал это так:

my $net = "${$query_snmp->{$tablekey}}{'ipRouteMask'}/${$query_snmp->{$tablekey}}{'ipRouteDest'}";
my $IP = new Net::IP ($net) or die (Net::IP::Error());

Но все IP-объекты всегда создаются с /32, независимо от того, какую я установил маску сети. Если я определяю строку типа 192.168.0.0/20 или что-нибудь в этой же строке, я не вижу проблем.

Чего мне не хватает?

Network -> 192.168.65.64/255.255.255.248

IP  : 192.168.65.64
LASTIP  : 192.168.65.64
Sho : 192.168.65.64
Bin : 11000000101010000100000101000000
Int : 3232252224
*** Mask: 255.255.255.255 *** wtf ??
Last: 192.168.65.64
Len : 32
Size: 1
Type: PRIVATE
Rev:  64.65.168.192.in-addr.arpa.

Answer 1

Из руководства : объект Net :: IP может быть создан с одного IP-адреса или с префикса бесклассового типа ...

Я думаю, что вы выбралиукажите бесклассовую сеть, при условии, что вы вставите действительный сетевой спецификатор, он работает для меня.

#!/usr/bin/perl -w    
use Net::IP;
my $ip = new Net::IP('112.198.64.0/18') or die (Net::IP::Error());
print ("IP  : ".$ip->ip()."\n");
print ("Sho : ".$ip->short()."\n");
print ("Bin : ".$ip->binip()."\n");
print ("Int : ".$ip->intip()."\n");
print ("Mask: ".$ip->mask()."\n");
print ("Last: ".$ip->last_ip()."\n");
print ("Len : ".$ip->prefixlen()."\n");
print ("Size: ".$ip->size()."\n");
print ("Type: ".$ip->iptype()."\n");
print ("Rev:  ".$ip->reverse_ip()."\n");

выведет:

IP  : 112.198.64.0
Sho : 112.198.64
Bin : 01110000110001100100000000000000
Int : 1892040704
Mask: 255.255.192.0
Last: 112.198.127.255
Len : 18
Size: 16384
Type: PUBLIC
Rev:  64.198.112.in-addr.arpa.

Однако, если вы ввели "192.168.65.64 / 255.255.255.248 ", это не формат, принятый Net :: IP, вы должны использовать вместо" 192.68.65.64/29 ", см. эту таблицу .В этом случае он будет работать правильно:

IP  : 192.168.65.64
Sho : 192.168.65.64
Bin : 11000000101010000100000101000000
Int : 3232252224
Mask: 255.255.255.248
Last: 192.168.65.71
Len : 29
Size: 8
Type: PRIVATE
Rev:  64.65.168.192.in-addr.arpa.

Когда вы используете формат с полной маской, так как он не распознан, он получает только IP и даст вам маску 255.255.255.255

Answer 2

спасибо! Наконец, я использовал модуль simillar, который запрашивает запрос, чтобы преобразовать маску ip в нотацию.

Сеть :: Маска сети -> https://metacpan.org/pod/Net::Netmask

СТРОИТЕЛЬСТВО

Net::Netmask objects are created with an IP address and optionally a mask. There are     many forms that are recognized:

'216.240.32.0/24' The preferred form.

'216.240.32.0:255.255.255.0'
'216.240.32.0-255.255.255.0'
'216.240.32.0', '255.255.255.0'
'216.240.32.0', '0xffffff00'
'216.240.32.0 - 216.240.32.255'
'216.240.32.4'
A /32 block.

'216.240.32'
Always a /24 block.

'216.240'
Always a /16 block.

'140'
Always a /8 block.

'216.240.32/24'
'216.240/16'
'default' or 'any'
0.0.0.0/0 (the default route)
'216.240.32.0#0.0.31.255'

Спасибо.