[問題]請教各位server的問題
各位好小弟目前使用socket遇到一個問題 , 以下是我的程式碼,
可以看得來我目前只有要接收 client的msg , 但每次從client接收到的msg都是空的,而且之後
就一直執行不斷的印出recv :變成無線迴圈(select變成沒有作用!!) , 請教各位我目前是要不斷接收
來自client的訊息而已, 請問是不是哪有寫錯要注意的地方
謝謝
$Socket = new IO::Socket::INET->new(LocalAddr => 'localhost',
LocalPort => 111,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1
) or die "Can't bind : $@\n";
$s = new IO::Select($Socket);
$i=1;
while($i)
{
if( $s->can_read )
{
$Socket->recv($text,512);
print "recv : $text\n";
# $i=0;
}
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.87.82.195
推
06/24 16:01, , 1F
06/24 16:01, 1F
推
06/24 16:02, , 2F
06/24 16:02, 2F
推
06/24 16:12, , 3F
06/24 16:12, 3F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
