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