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

[関数の使い方･書式]

○ ＝ socketpair ☆,★,□,■,△

☆：	(スカラー)	ファイルハンドル。　･･･　ソケットと結びつけるファイルハンドル。
★：	(スカラー)	ファイルハンドル。　･･･　ソケットと結びつけるファイルハンドル。
□：	(スカラー)	ドメイン。　･･･　どのプロトコル･ファミリを使用するかを指定。
■：	(スカラー)	タイプ。　･･･　socket の｢機能説明｣を参照ください。
△：	(スカラー)	プロトコル。　･･･　プロトコル番号。
○：	(スカラー)	成功時は真、失敗時は偽を返します。

[関数の機能]

socket と似ていますが、ドメイン□をもつ名前のない１組の双方向ソケットを作成します。 pipe 関数で生成したファイルハンドルと異なり、双方向で使用することが出来ます。
socketpair が実装させていないプラットフォームで使用すると致命的エラーとなります。

[書式の例]

sockpair SOCKET1, SOCKET2, $domain, $type, $protocol;

● 双方向通信

use Socket;
use IO::Handle;

socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
	or die "socketpair 失敗: $!";
CHILD->autoflush(1);
PARENT->autoflush(1);
if ($pid = fork) {
	closePARENT;
	print CHILD "親プロセス$$:送信開始\n";
	chomp($cmsg = );
	print "親プロセス$$:子プロセスより受信->`$cmsg'\n"
	ckise CHILD;
	waitpid($pid, 0);
} else {
	unless (defined $pid) { die "fork 失敗:$!"; }
	close CHILD;
	chomp ($pmsg = );
	print "子プロセス$$:親プロセスより受信->`$pmsg'\n;
	print PARENT "子プロセス$$:受信成功\n";
	close PARENT;
	exit;
}


【出力結果】
子プロセス707:親プロセスより受信->`親プロセス:送信成功'
親プロセス707:子プロセスより受信->`子プロセス:受信成功'



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