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

发布时间：2020-12-16 00:08:53 所属栏目：大数据来源：网络整理

导读：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 "recv from $server_host timed out afte

 
      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  
      "recv from $server_host timed out after $TIMEOUT seconds.n" 
      ; 
     

#定义ALRM发生信号时的操作，这里发信给客户端并断开链接，子进程退出
$SIG{ALRM} = sub {
print "recv timeoutn";
##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 );

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!