Perl-getpeername

提供:Dev Guides
2020年6月22日 (月) 23:31時点におけるMaintenance script (トーク | 投稿記録)による版 (Imported from text file)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
移動先:案内検索

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