+ -
当前位置:首页 → 问答吧 → read读取sock的返回值疑问

read读取sock的返回值疑问

时间:2010-11-18

来源:互联网

代码如下,为何循环不能结束呢,read函数的说明文档里也写着 当读取完毕时返回值为0.无论是判断返回值为0或者 undef 都不能结束循环。望高人指点。
  1. 1 #!/usr/bin/perl
  2.   2 use IO::Socket;
  3.   3 use strict;
  4.   4 use constant BUFSIZE=>1024;
  5.   5 my $ip=$ARGV[0];
  6.   6 my $port=$ARGV[1]||11211;
  7.   7 my $sock=IO::Socket::INET->new(PeerPort=>$port,
  8.   8                                PeerAddr=>"$ip",
  9.   9                                Proto=>'tcp',)or die "can not connect to $ip\n$!";
  10. 10 my $data;
  11. 11 my $c;
  12. 12 print $sock "stats items\r\n";
  13. 13 while(1)
  14. 14 {
  15. 15 $c=read($sock,$data,BUFSIZE);
  16. 16 print $data;
  17. 17 last if $c==0;
  18. 18 }
  19. 19 exit;
复制代码

作者: heut2009   发布时间: 2010-11-18

并不是一直在循环,而是read被阻塞了。
你可以把循环结束条件改为
$c != BUFSIZE
但是当收到的字节数正好是BUFSIZE的整倍数的时候
还是会有问题。
所以,需要知道将会收到什么格式的数据,再选择合适的循环结束条件

作者: shenyue_sam   发布时间: 2010-11-18