Socket通信客户使用recv，如何判服务器内容

jis2046

1^# jis2046 发表于 2006-06-08 10:48

jis2046

2^# jis2046 发表于 2006-06-08 10:52

Socket通信客户使用recv，.
Socket通信客户使用recv，如何判服务器内容是否发完？
while(1)
{
my $ret_val=recv $sock,$buf,1024,0;
last if(! defined $ret_val );
print "buf=$buf\n";
}

jis2046

3^# jis2046 发表于 2006-06-08 10:53

我能收到全部服务器发送过.
我能收到全部服务器发送过来的信息，可是recv确一直阻塞在那里，无法推出循环，我还怎么做？谢谢