perl Socket接收超时设置

一般来说， IO::Socket::INET里的Timeout设置是对于conncet的
如果你想设置recv接收超时， 可以这样设置:

usr Socket:
......
setsockopt($socket, SOL_SOCKET, SO_RCVTIMEO, pack('l!l!', 1, 0));
#注意这里pack有三个参数， 后面的1表示超时1秒， 最后的0你可以默认
#而前面的'l!l!', !表示64位平台
#如果你是用IO::Socket::INET他的socket, 可以这样:
use IO::Socket::INET;
my $socket = IO::Socket::INET->new();
$socket->setsockopt(SOL_SOCKET, SO_RCVTIMEO, pack('l!l!', 1, 0));
 
#如果你觉得麻烦， 可以安装 IO::Socket::Timeout模块， 用如下方式设置接收超时或发送超时:
# 1. Creates a socket as usual
my $socket = IO::Socket::INET->new( ... );
 
# 2. Enable read and write timeouts on the socket
IO::Socket::Timeout->enable_timeouts_on($socket);
 
# 3. Setup the timeouts
$socket->read_timeout(0.5);
$socket->write_timeout(0.5);
 
# 4. Use the socket as usual
my $data = <$socket>;
 
#

这里有一点要说明， 可能新人有点迷惑。
那就是io::socket::inet创一个socket时， 这个socket是未定义的， 要等 到它连接成功了才变成定义状态。
所以， 当你用io::socket::timeout时， 记得要连接成功了才调用， 要不会出现error, 提示方法不能用于一个未定义的变量。

像上面的代码所示， 如果把20行放到17行的位置， 程序将会出错。

文章参考自:http://blog.booking.com/socket-timeout-made-easy.html