getpeername

描述 (Description)

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

语法 (Syntax)

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

getpeername SOCKET

返回值 (Return Value)

此函数在错误时返回undef，否则在标量上下文中打包套接字地址。

例子 (Example)

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

#!/usr/bin/perl
use Socket;
$hersockaddr    = getpeername(SOCK);
($port, $iaddr) = sockaddr_in($hersockaddr);
$herhostname    = gethostbyaddr($iaddr, AF_INET);
$herstraddr     = inet_ntoa($iaddr);

When above code is executed, it produces the following result −