Perl getpeername 函数

• 

  描述

  getpeername 返回连接到SOCKET的远程主机的压缩套接字地址。
• 

  句法

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

  
  getpeername SOCKET
  

• 

  返回值

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

  示例

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

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