Perl5 リファレンス



       getsockname SOCKET
               Returns the packed sockaddr address of this end of
               the SOCKET connection, in case you don't know the
               address because you have several different IPs
               that the connection might have come in on.

                   use Socket;
                   $mysockaddr = getsockname(SOCK);
                   ($port, $myaddr) = sockaddr_in($mysockaddr);
                   printf "Connect to %s [%s]\n",
                      scalar gethostbyaddr($myaddr, AF_INET),
                      inet_ntoa($myaddr);


Perl5リファレンスに戻る