4

一連の 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 アドレスが範囲内にあるかどうかを判断できるモジュールを見てきましたが、範囲を分割できるものはまだ見たことがありません。

4

1 に答える 1

8

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
于 2012-09-09T17:20:17.247 に答える