先頭アドレスの取得
NetAddr::IPモジュールを使うと簡単です。
use strict;
use NetAddr::IP;
my $ip = NetAddr::IP->new('192.168.0.3/27');
print $ip->addr(), "\n";
print $ip->first()->addr(), "\n"; # 192.168.0.1
関連項目
・ネットワークアドレスの取得・ブロードキャストアドレスの取得
・末尾アドレスの取得
・アドレス範囲の取得
・アドレスをまとめる
