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

[関数の使い方･書式]

○ ＝ accept ☆,★

☆：ファイルハンドル
･･･クライアントとの接続に使用する新しいソケット。
★：ファイルハンドル
･･･ socket で作成され､bind でアドレスに結び付けられ､listen で接続待ちのソケット。
○：成功時は接続相手のアドレス(パックデータ)､失敗時は偽を返す。

[関数の機能]

クライアントからの接続要求があるまで待機を続けます。
接続要求が来ると、ファイルハンドル☆をオープンし､クライアントとの確立された接続に結び付けます。
エラー時には､$! にエラーコードがセットされます。

[書式の例]

$client_addr = accept CLIENT, SERVER or dir "accept 失敗";

接続が確立した場合は､変数 $client_addr に接続先のアドレスを取得する。
接続に失敗した場合にはエラーメッセージを出す。

● 複数のクライアントからの接続に対応したサーバスクリプトの一部

use Socket;
･･･ (略)
for (;;) {
	$client_addr = accept CLIENT, SERVER
		or dir "accept エラー: $!";
	($port, $addr) = sockaddr_in($client_addr);
	$name = gethostbyaddr($addr, AF_INET);
	if (! ($pid = fork)) {
		# 子プロセス
		print CLIENT $name,"[",inet_ntoa($addr),
			"] ポート $port より接続","\n";
		close CLIENT;
		exit;
	}
	print "$0 $$: $nameをaccept [",
		inet_ntoa(), "] ポート $port", " on",
		scalar localtime, "/n";
	close CLIENT;
}



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