Perl getsockname()函数

perl getsockname()函数，getsockname()函数学习例子，getsockname()函数实例代码，getsockname()函数在线教程等

语法

getsockname SOCKET

定义和用法

返回地址包的网络socket套接字的本地端。

返回值

• 在标量上下文上的错误返回undef，否则返回本地套接字地址包。

实例

试试下面的例子：在这里，SOCK是套接字ID

#!/usr/bin/perl
#by www.gitbook.net

use Socket;
$mysockaddr = getsockname(SOCK);
($port, $myaddr) = sockaddr_in($mysockaddr);

printf "Connect to %s [%s]\n",
       scalar gethostbyaddr($myaddr, AF_INET),
       inet_ntoa($myaddr);