perl - 如何使用 Perl 解析 IP 地址和地址范围？

Question

我有IP列表:

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

我怎样才能轻松解析它们？我需要范围内的第一个和最后一个 IP。
对于第一行，我可以使用 Net::Netmask CPAN 模块，但是我可以用其他行做什么？

Answer 1

试试 Net::IP模块

如果第二种模式不支持，您可能需要提前对 ips 进行一些更改，例如

238.51.209.180-199

到

238.51.209.180 - 238.51.209.199

例如，通过使用一些正则表达式，

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

完整脚本:

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";