例えば、check_ip($$)というサブルーチンだとして、
$ip="127.0.0.1"; @net=("192.168.0.0/24",...);
die "unmatch" unless(check_ip($ip,\@net));
とか出来るようなものです。
これを発展させて、携帯電話のキャリア毎のIPアドレスチェックに特化したモジュールがあればさらにうれしいのですが。
2
1
1
1
13
11
129
39
試しにインストールしてみて、そこそこ使えるのを確認しました。
他にもっと使いやすいのがなければこれを使っていこうかと思います。
ありがとうございました。