ネットワークアドレスの取得


 NetAddr::IPモジュールを使うと簡単です。
use strict;
use NetAddr::IP;

my $ip = NetAddr::IP->new('192.168.0.3/27');

print $ip->addr(), "\n";
print $ip->network(), "\n"; # 192.168.0.0/27

関連項目

ブロードキャストアドレスの取得
先頭アドレスの取得
末尾アドレスの取得
アドレス範囲の取得
アドレスをまとめる