免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2257 | 回复: 2

read读取sock的返回值疑问 [复制链接]

论坛徽章:
0
发表于 2010-11-18 22:39 |显示全部楼层
代码如下,为何循环不能结束呢,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;
复制代码

论坛徽章:
2
IT运维版块每日发帖之星
日期:2016-04-15 06:20:0015-16赛季CBA联赛之福建
日期:2016-08-08 13:37:03
发表于 2010-11-18 23:28 |显示全部楼层
并不是一直在循环,而是read被阻塞了。
你可以把循环结束条件改为
$c != BUFSIZE
但是当收到的字节数正好是BUFSIZE的整倍数的时候
还是会有问题。
所以,需要知道将会收到什么格式的数据,再选择合适的循环结束条件

论坛徽章:
0
发表于 2010-11-19 09:45 |显示全部楼层
回复 2# shenyue_sam
那如果我采用无阻塞的sysread 来实现的话,通过返回值是否为0 来结束循环是不是就可以了呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP