Perl

getpeername

getpeername SOCKET



SOCKETコネクションの向こう側のパックされたSOCK_ADDRアドレスを返します。

getpeernameの使い方

$o_sockaddr = getpeername(SOCKET);
($port, $iaddr) = unpack_sockaddr_in($o_sockaddr);
$ip_address = inet_ntoa($iaddr);

関連記事