[関数の使い方･書式]

○ ＝ getpeername ☆

☆：ファイルハンドル。   ･･･ connect などで接続済みのファイルハンドル。
○：成功時はパックされたソケットアドレス、失敗時は偽(未定義値)を返します。

---

[関数の機能]

ソケット接続している相手側の名前(ソケットアドレス)を返します。
エラー発生時には、$! にエラーコードがセットされます。

---

[書式の例]

$return = getpeernaem SOCKET;

ソケット接続している相手側の名前を取得します。

use Socket;

$remotesockaddr = getpeername(SOCKEt) or die "getpeername 失敗: $!";
($port, $iaddr) = unpack_sockaddr_in($remotesockaddr);
$remotehostname = gethostbyaddr($iaddr, AF_INET);
$remoteiaddr = inet_ntoa($iaddr);