read讀取sock的返回值疑問

heut2009

代碼如下，為何循環(huán)不能結(jié)束呢，read函數(shù)的說明文檔里也寫著 當(dāng)讀取完畢時(shí)返回值為0.無論是判斷返回值為0或者 undef 都不能結(jié)束循環(huán)。望高人指點(diǎn)。

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;
    

復(fù)制代碼

shenyue_sam

并不是一直在循環(huán)，而是read被阻塞了。
你可以把循環(huán)結(jié)束條件改為
$c != BUFSIZE
但是當(dāng)收到的字節(jié)數(shù)正好是BUFSIZE的整倍數(shù)的時(shí)候
還是會(huì)有問題。
所以，需要知道將會(huì)收到什么格式的數(shù)據(jù)，再選擇合適的循環(huán)結(jié)束條件

heut2009

回復(fù) 2# shenyue_sam
那如果我采用無阻塞的sysread 來實(shí)現(xiàn)的話，通過返回值是否為0 來結(jié)束循環(huán)是不是就可以了呢