広告
ソケットの IP アドレスとポート番号を調べる関数です。相手先の IP アドレス・ポート番号を調べるのには getpeername を使います。ここで得られる IP アドレスは自分自身のホストに付けられた IP アドレスです。
$sockaddr = getsockname(SOCK); ($port, $iaddr) = unpack_sockaddr_in($sockaddr); $hostname = gethostbyaddr($iaddr, AF_INET);
https://www.7key.jp/program/perl/getsockname.html