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);