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