先頭アドレスの取得
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
関連項目
・ネットワークアドレスの取得・ブロードキャストアドレスの取得
・末尾アドレスの取得
・アドレス範囲の取得
・アドレスをまとめる