求助！急！！！关于recv函数

robertmaine

我在调用recv函数进行UDP协议的信息接收时，发现无法使其超时返回。虽然IO::Socket在新建的时候有一个Timeout的参数可以设置，但查资料说是用于TCP协议中的connect与accept当中的。
我现在要在UDP接收的时候进行设置超时，有什么办法吗？

先多谢各位了！

apile

$rtn = eval {
$SIG{ALRM} = sub { die "timeout" };
  alarm(10) ; # 10秒
   # do something
  return something
}
if($@){ print " Something happen : $@\n"}