🚀 go-pugleaf

えんどうです

rsekido@midicity.co.jp (SEKIDO Ryoichi) writes:
>Perl の select システムコールでよく分からないことがあるので，お尋ねします
>．
>クライアントからの接続を select で待ち受けて処理しようとしていますが，
>新しい接続を accept で受けても，帰ってくるファイルハンドルが１回目と同じに
>
>なってしまいます．そうではなくて，クライアント間のやりとりを仲立ちするよう
>な
>プログラムを作りたいのです．

ファイルハンドルに毎回おなじシンボル使っているからです。

perlfaq5にこのあたりの記述があります。 
How do I make an array of filehandles? あたりでサーチしてみてください。

古来から伝わる方法としては、最初に
$seq  = 0;
として、acceptのあたりを、

local $NS = `C` . ++seq;# `C`は単にユニークな文字列ってだけで、なんでもよい。
accept($NS, S);		# つまり、`C0`、`C1`、`C2` ...と云うシンボルが渡る
	:
vec($rmask1, fileno($NS), 1) = 1;
	:

とすると云うのがあります。毎回違う識別子を与えるのですね。

と、perlfaq5を見たら、perl5的には、同じことを、

use Symbol;
	:
my $NS = gensym();
	:
とするのですね。

あと、ついでですが、IPCに関する部分は、perl5ではもう少しきれいな書き方
ができますよ。perlipcをみてみたらどうでしょうか。

# それももう古いか……今はIO::Socketかな

では
はは
--
Hideyuki Endo				  endo-h@remus.dti.ne.jp