STDINによるキーボードからの入力について

質問

初めて質問させて頂きます。
最近Perlの勉強をはじめ、perlによるネットワークプログラミングに興味が出てきたので、
自分でインスタントメッセンジャーの様な物を作ってみようと思いました。

1つのwhileループ内で、
"受信データがある場合はその内容を表示"
"クライアントへの入力があった場合はその内容を送信"
という動作をさせたいのですが、
<STDIN>で入力待機状態となるとループが止まるので、受信→内容表示の処理が滞ってしまいます。

while(1){

if(受信内容がある){
print "受信内容";
}

if($senddata=<STDIN>){ #ここで止まってしまう為、受信表示ができない
print $ソケット "$senddata";
}

}

入力待ちをすれば、止まってしまうのは当たり前と言うことはわかっているのですが・・・。

過去の質問に、スレッドを利用して
"受信があればそれを表示"と"入力があればそれを送信"
の動作を分けている方がいらっしゃいましたが、
スレッドで分けずにこの動作を実現する事はできるのでしょうか？
また、可能ならばどの様にしたら良いのでしょうか？

回答No.1

galluda · ベストアンサー

がると申します。
んっと。そういった処理は、SELECTという関数で実現が可能です。
SELECTは「指定されたファイルハンドルになんかデータが来るか、でなきゃ指定時間までロック」する関数なので。
…ただ、正直、結構扱いの難しい関数ではあります。
原則、C言語のselect関数と使い方は大差ないので、socket selectとかでgoogleで検索して、まずは雰囲気を掴むと楽かもしれません。

お礼

お早い回答ありがとうございます♪
結構難しそうですが、頑張ってselectを使って書いてみようと思います！