IPアドレスのリストからCIDR表現を作る（Perl編）

ちょっと仕事でIPアドレスのリストからACLを作るという作業をしなければならなかったのですが、大した作業でなはないとたかをくくっていたら、IPアドレスの量があまりにも膨大だったで参ってしまいました。しかもIPアドレスはきれいにサブネットで纏まっているわけでもなく、手作業でサブネットを計算するのも現実的ではなさそう。ということで、これをスクリプトで処理をして、なんとかCIDR形式にまとめられないかといろいろと探してみました。

こういう処理自体はルーティングテーブルの圧縮なんかでも使われているので、何か適当なライブラリがないかと探してみたところ、perlのNet::CIDR::Liteが使えそうだということがわかったので、簡単なスクリプトを書いてみました。

† コードのサンプル

今回作ったコードのサンプルはこんな感じ。

ipmerge.pl

#!/usr/bin/perl
use Data::Dumper;
use Net::CIDR::Lite;

$Data::Dumper::Terse = 1;

my $cidr = Net::CIDR::Lite->new;
while(<>){
	chomp;
	$cidr->add_ip($_);
}
print Dumper($cidr->list);

下記のようなIPアドレスのリストを処理すると、IPアドレスの範囲をCIDR形式で得ることができます。

iplist.txt

168.0.0
168.0.1
168.0.2
168.0.3
168.0.4
168.0.5
168.0.6
168.0.7
168.0.8
168.0.9
168.0.10
168.0.11
168.0.12
168.0.13
168.0.14
168.0.15
168.0.16
168.0.17
168.0.18

perl ipmerge.pl < iplist.txtの実行結果

'192.168.0.0/28'
'192.168.0.16/31'
'192.168.0.18/32'

by hsur at 18:21 [4年前][3年前][2年前][1年前][1年後][2年後][3年後][4年後][5年後] |

こんな記事もあります「Dumper アドレス iplist」

・中国企業が対日工作として偽サイトを作成している
・神奈川の入試ネット出願システムの不具合が復旧
・2023 年の人気エントリ Top 100
・Okta の顧客サポートシステムの全ユーザー情報が漏洩
・豊田市でライセンス更新忘れによるメールアドレス漏洩が発生
・Thunderbird で Exchange Online ( m365 ) の共有メールボックスにアクセスする
・鹿児島大でドッペルゲンガードメインによる情報漏洩が発生
・帰省に備えて PCR 検査をしてきた
・平均未読メール数は 646 通？
・am I infected? で自分のルーターをチェック

トラックバックについて

Trackback URL:

お気軽にどうぞ。トラックバック前にポリシーをお読みください。[policy]

このエントリへのTrackbackにはこのURLが必要です→https://blog.cles.jp/item/2783

Trackbacks

このエントリにトラックバックはありません

Comments

愛のあるツッコミをお気軽にどうぞ。[policy]
古いエントリについてはコメント制御しているため、即時に反映されないことがあります。

コメントはありません

Comments Form

コメントは承認後の表示となります。
OpenIDでログインすると、即時に公開されます。

OpenID を使ってログインすることができます。

« ライブドアがブログのIPブラックリストサービスを開始 :: 風邪ダウン »

サイト内検索

検索ワードランキング

へぇが多いエントリ

閲覧数が多いエントリ

1 . アーロンチェアのポスチャーフィットを修理(114457)
2 . 福岡銀がデマの投稿者への刑事告訴を検討中(112972)
3 . 年次の人間ドックへ(112396)
4 . 2023 年分の確定申告完了！（１つめ）(111963)
5 . 三菱鉛筆がラミーを買収(111836)

cles::blog

IPアドレスのリストからCIDR表現を作る（Perl編）