[Q] Socket check in Perl

Article View: fj.lang.perl

Article #82

#82

From: SEKIDO Ryoichi
Date: Wed, 24 Feb 1999 00:00

22 lines
1666 bytes

関戸と申します．

サーバー上にクライアントと通信するためのソケットが定義されています．

use IO::Socket;
$sock = new IO::Socket::INET(...);
...
$new_sock = $sock->accept();
...

ここで，$new_sock->send(...) などとしてクライアントにデータを送る前に，
クライアントが死んでないか確かめたいのです．

クライアントが死んでいる状態で，$new_sock->peeraddr() などでクライアントの
情報にアクセスすると，Perl が終了してしまうのです．

何かよい方法はないでしょうか？

--- midiCity Co.,Ltd. -------------------------------------------------->
関戸　良一                                         rsekido@midicity.co.jp
SEKIDO Ryoichi                           Phone/Fax 03-5478-0821/5478-0820
<-------------------------------------------------- midiCity Co.,Ltd.----

Technical Details

Message-ID: <rsekido-2402991805260001@news.midicity.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,3306bc8d9ad29087,start
X-Google-Attributes: gid1043e7,public
X-Google-Thread: fdef0,3306bc8d9ad29087,start
X-Google-Attributes: gidfdef0,public
X-Google-Thread: 106434,3306bc8d9ad29087,start
X-Google-Attributes: gid106434,public
From: rsekido@midicity.co.jp (SEKIDO Ryoichi)
Subject: [Q] Socket check in Perl
Date: 1999/02/24
Message-ID: <rsekido-2402991805260001@news.midicity.co.jp>
X-Deja-AN: 447820973
Followup-To: fj.lang.perl
Content-Type: text/plain; charset=iso-2022-jp
X-Complaints-To: usenet@midi3.midicity.co.jp
X-Trace: midi3.midicity.co.jp 919847125 21852 202.229.190.124 (24 Feb 1999 09:05:25 GMT)
Organization: midiCity Co.,Ltd.
Mime-Version: 1.0
NNTP-Posting-Date: 24 Feb 1999 09:05:25 GMT
Newsgroups: fj.lang.perl,fj.lang.c,fj.unix