perl中调用recv函数阻塞，设置超时

sq_Mark

于 2013-02-27 13:32:04 发布

阅读量590

点赞数

分类专栏： perl脚本语言

本文链接：https://blog.csdn.net/boyishachang/article/details/8617327

版权

perl脚本语言专栏收录该内容

13 篇文章 1 订阅

订阅专栏

1

2

3

4

5

6

7

 
      eval  
      { 
     
 
           
      local  
      $SIG 
      {ALRM} =  
      sub  
      {  
      die  
      "alarm time out"  
      }; 
     
 
           
      alarm  
      $TIMEOUT 
      ; 
     
 
         
         
      $sock 
      -> 
      recv 
      ( 
      $msg 
      ,  
      $MAXLEN 
      )      or  
      die 
        
      "recv: $!" 
      ; 
     
 
           
      alarm  
      0; 
     
 
           
      1;   
      # return value from eval on normalcy 
     
 
      } or  
      die 
        
      "recv from $server_host timed out after $TIMEOUT seconds.\n" 
      ; 
     

#定义ALRM发生信号时的操作，这里发信给客户端并断开链接，子进程退出
$SIG{ALRM} = sub {
print "recv timeout\n";
##syswrite($session,"timeout");
my $bytes=send($session,"timeout",0);
&log($bytes);
close($session);
exit();
};

alarm( 30 ); #同上，一般放在会超时的操作代码
my $bs=recv($session,$buf,2048,0);
&log($bs);
alarm( 0 );