perl中调用recv函数阻塞,设置超时
来源:互联网 发布:如何进入网络班级 编辑:程序博客网 时间:2024/05/14 16:47
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 );
- perl中调用recv函数阻塞,设置超时
- recv断网后阻塞-设置超时时间
- [转]socket的send、recv阻塞设置阻塞超时时间
- socket的send、recv阻塞设置阻塞超时时间
- socket的send、recv阻塞设置阻塞超时时间
- socket的send、recv阻塞设置阻塞超时时间
- socket的send、recv阻塞设置阻塞超时时间
- connect、send、recv函数如何设置超时
- 设置recv的超时
- recv()设置超时
- 设置recv的超时
- 设置recv的超时
- SETSOCKOPT 设置阻塞SOCKET函数超时时间
- recv、send函数windows和linux下超时设置
- perl中recv介绍
- Python设置函数调用超时
- socket中设置收发超时、非阻塞
- connect超时设置.阻塞和非阻塞 ioctlsocket函数
- eclipse 打包
- 2008 DNS辅助区域配置
- 2008 DNS客户端设置
- 如何快速删每条句子前的编号
- 使用ADO智能指针_ConnectionPtr,_CommandPtr及_RecordsetPtr
- perl中调用recv函数阻塞,设置超时
- SlidingMenu-master中的example怎样导入eclipse运行
- SaaS
- 基于OSGi的企业级开发框架实践——OSGi Annotations
- 图解C#如何为winform程序打包发布应用
- VMware 虚拟机 安装 UBuntu 9.10 命令模式转换成窗口模试
- 需求的用例表达
- 2008 DNS转发器
- 备忘