Perl getpeername 函数


描述

该函数返回附加到 SOCKET 的远程主机的打包套接字地址。

句法

以下是该函数的简单语法 -

getpeername SOCKET

返回值

如果出现错误,此函数将返回 undef,否则将在标量上下文中打包套接字地址。

例子

以下是显示其基本用法的示例代码,这里 SOCK 是对等套接字的套接字 ID -

#!/usr/bin/perl

use Socket;

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