[perl] ソケットで非同期 I/O | 女プログラマってどうよ？通常、サーバとの通信をしていて、 クライアント側では、 while(<SOCKET>) { 処理 ; } なんてことをするわけだが、 これだと、サーバ側に何か(ケーブルが抜けたとか)あると、 読みに行ったまま止まってしまう。 ４つ引数の select を使って、 timeout を設定するのも試してみたのだが、 何故か動かなかった。 というか、timeout 時間になっても切れなかった。 なので、ソケットで非同期 I/O ができるようにしてみた。 参考になるソースを探してみたけれど、 マニュアルっぽいのばっかりで、実際のソースが見つからなかったので、 自分でメモしておく。 誰かの役に立つと良いな(^-^) ちなみにこれはクライアント側のソース。 use Socket; use FileHandle; use Fcntl; my $s = new FileHandle; my $ia = i
![[perl] ソケットで非同期 I/O | 女プログラマってどうよ？](https://cdn-ak-scissors.b.st-hatena.com/image/square/20effd9bc11658db69bf38577a6672351710fca4/height=288;version=1;width=512/https%3A%2F%2Fpds.exblog.jp%2Flogo%2F1%2F200402%2F09%2F75%2Fa000307520131220191941.gif)
