ミスティーネットレンタルサーバー－ MISTY-NET － Perl･CGI講座　関数検索 >> getsockname



	\| HOME \| ご利用について \| 推奨環境 \| リンクに関して \| 免責/規約 \| お問合せ \| ミスティーネット \| リンク集 \|


	始めに変数について処理の制御1 処理の制御2 配列の処理ハッシュの処理数値の扱い文字の扱い時間の処理サブルーチンファイルの処理ディレクトリ処理 CGIについて漢字の処理 (文字コード) Cookie の処理正規表現1 正規表現2 演算子についてライブラリデバック環境変数


	カウンターを作ってみよう！ミニゲームを作ってみよう！

HOME >> アルファベットで関数を検索 >> getsockname

getsockname [ソケット名を取得する]

[ネットワーク関数]

[関数の使い方･書式]

○ ＝ getsockname ☆

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

[関数の機能]

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

[書式の例]

$return = getsockname SOCKET;

ファイルハンドル SOCKET のソケットアドレスを返します。

サンプルソース

use Socket;
･･･(略)
$paddr = accept(CLIENT, SERVER) or die "accept エラー: $!";
($port, $iaddr) = sockaddr_in $paddr;
$remotename = gethostbyaddr($iaddr, $AF_INET);
･･･(略)
$mysockaddr = getsockname CLIENT or die "getsockname 失敗: $!";
($myport, $myiaddr) = unpack_sockaddr_in($mysockaddr);
$myip = inet_ntoa $myiaddr;
print "$remotename[$ip] ポート$port より", "[$myip]ポート$myportに接続", "\n";
･･･(略)