Jak mogę analizować adresy IP i zakresy adresów za pomocą Perla?

Question

Mam listę adresów IP:

238.51.208.96/28
238.51.209.180-199
238.51.209.100-109
238.51.213.2-254
...

Jak mogę łatwo je sparsować? Potrzebuję pierwszego i ostatniego adresu IP z zasięgu. Do pierwszej linii mogę użyć modułu Net :: NetMask CPAN, ale co mogę zrobić z liniami innych?

Answer 1

Spróbuj Net::IP moduł

Jeśli drugie wzory nie obsługuje, może zaistnieć potrzeba pewnych zmian ips zaliczek jak

238.51.209.180-199 

do

238.51.209.180 - 238.51.209.199 

przy użyciu niektórych regex, dla przykład:

$range =~ s/^((?:\d+\.){3})(\d+)-(\d+)$/$1$2 - $1$3/gm; 

Pełny skrypt:

use warnings; 
use strict; 
use Net::IP; 
my $range = "238.51.209.180-199"; 
$range =~ s/^((?:\d+\.){3})(\d+)-(\d+)$/$1$2 - $1$3/; 
my $ip = new Net::IP ($range) || die; 
print $ip->ip(), "\n"; 
print $ip->last_ip(), "\n"; 

Answer 2

można dopasować adresy IP przy użyciu pakietu Regexp::Common::net i manipulować nimi (i dostać Maski sieciowe itp) z dowolnej liczby modułów w CPAN, w tym Network::IPv4Addr, NetAddr::IP i Net::CIDR.