Perl getpeername()函数

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

语法

getpeername SOCKET

定义和用法

返回远程主机连接到SOCKET的数据包套接字地址。

返回值

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

实例

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

use Socket;

$hersockaddr    = getpeername(SOCK);
($port, $iaddr) = sockaddr_in($hersockaddr);
$herhostname    = gethostbyaddr($iaddr, AF_INET);
$herstraddr     = inet_ntoa($iaddr);