blog.nomadscafe.jp

NetAddr::IP、なにげに便利かも。
IPアドレスによるアクセス制限なんかが簡単に書けそうです。

たとえば、192.168.0.33が192.168.0.0/24にあるかどうかをチェックするようなものなら、

my $ip = NetAddr::IP->new("192.168.0.33");
if($ip->within(NetAddr::IP->new("192.168.0.0/24"))){
	print qq(ok?n);
}

と書ける。
希望を言えばもうすこしスマートに書けることかな。