Perl-getpeername

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