Perl 的 getpeername 函数

说明

此函数返回连接到套接字的远程主机的已打包的套接字地址。

语法

下面是此函数的简单语法，−

getpeername SOCKET

返回值

此函数返回错误时的未定义值，否则在标量上下文中返回已打包的套接字地址。

示例

以下示例代码显示了其基本用法，此处 SOCK 是对等套接字的套接字 ID：

#!/usr/bin/perl

use Socket;

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