getnetbyaddr IPADDR, ADDR_TYPE
getnetbyaddrは、ネットワークファイル(/etc/naeworks)、もしくは、同等の機構から、引数IPADDRにマッチしたネットワーク情報(ネットワーク名/エイリアス/アドレスタイプ/ネットワークアドレスの構造体)のリストを返します。
引数IPADDRには、IPアドレスを表す構造体、ADDR_TYPEには、Socketモジュールからインポートできる定数AF_INETを指定します。
getnetbyaddrの使い方
use Socket;
# ネットワーク情報の取得
@network = getnetbyaddr(unpack(N, pack('C4',192.168.0.10)), &AF_INET);
# ネットワークアドレスの構造体は以下のようにして戻すことができます
@address = unpack('C4', pack("N", $network[3]));
printf "%d.%d.%d.%d\n", @address;