Perl getpeername()函數

perl getpeername()函數，getpeername()函數學習例子，getpeername()函數實例代碼，getpeername()函數教學等

語法

getpeername SOCKET

定義和用法

返回遠程主機連接到SOCKET的數據包套接字地址。

返回值

• 在標量上下文undef上的錯誤，否則包裝套接字地址

實例

#!/usr/bin/perl
#by www.gitbook.net

use Socket;

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