Perl

getsockname

getsockname SOCKET



ソケットの自分自身のホスト側のIPアドレスとポート番号を調べます。返却値はSOCKETコネクションのこちら側のパックされたaockaddrアドレス
です。相手先のIPアドレス・ポート番号はgetpeernameで調べることができます。
 

getsocknametの使い方

while ( accept(CLIENT, SERVER) ) {
$my_socket_address = getsockname(CLIENT);
($port, $myaddr) = sockaddr_in($my_socket_address);
}

関連記事