我正在尝试根据包含一系列 IP 地址的文件创建 IP 地址范围。我尝试创建的范围不在文件中。例如,如果我有以下 IP 地址:
129.32.0.1
27.45.2.2
129.32.0.2
65.18.2.4
输出应为0.0.0.0-27.45.2.1,27.45.2.3-65.18.2.3,65.18.2.5-129.32.0.0,129.32.0.3-255.255.255.255
我当前所做的是从输入文件中提取 IP 并将它们存储到排序数组中(升序)。
#!/usr/bin/perl -w
use strict;
use Sort::Key::IPv4 qw(ipv4sort);
my $list = 'C:\Desktop\IPs.txt';
my $ipRange;
my @ips;
my $i = 0;
# Get IP Addresses into array
open(FILE, $list);
while (<FILE>) {
chomp($_);
$ips[$i] = ($_);
++$i;
}
# Sort IP Addresses
my @sorted = ipv4sort @ips;
# Create IP Ranges
我希望 CPAN 上有一些东西可以帮助我。我见过可以确定 IP 地址是否在某个范围内的模块,但还没有看到任何可以分割范围的模块。
最佳答案
我建议综合Net::CIDR::Set
模块
这段代码似乎提供了你所需要的
use strict;
use warnings;
use Net::CIDR::Set;
open my $fh, '<', 'C:\Desktop\IPs.txt' or die $!;
my $range = Net::CIDR::Set->new;
while (<$fh>) {
chomp;
$range->add($_);
}
$range->invert;
print $range->as_string(2);
输出
0.0.0.0-27.45.2.1, 27.45.2.3-65.18.2.3, 65.18.2.5-129.32.0.0, 129.32.0.3-255.255.255.255
关于Perl:获取不在给定列表中的IP地址范围,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12340882/