setsockopt(3)的SO_RCVTIMEO选项；在$sock->sockopt()里对应选项名是什么？

yjh777

如题，

现在有一个UDP socket； 发送请求后，调用$sock->recv() 接收，想设接收超时时间：
$sock->sockopt(SO_RCVTIMEO, 1) or die "err: $!";

报错无效的参数；  请教大家：在哪里可以找到sockopt的可用选项？

shaneqi

$sock->sockopt(SO_RCVTIMEO, 1) || die "err: $!";
试试传递pack类型的参数，不要传递1这样的。

flw

use Socket;

然后再试

yjh777

use Socket;

然后再试
flw 发表于 2010-03-25 12:53

原来就有：
use strict;
use Socket;
use IO::Socket qw(EFAULT :crlf);
use Time::HiRes;

还有没有其他原因？

yjh777

整个脚本如下：
#!/usr/bin/perl
use strict;
use Socket;
use IO::Socket qw(:DEFAULT :crlf);
use Time::HiRes;

my $buf;
my $ip = $ARGV[0];
$ip = "127.0.0.1" if ($ip == undef);

my $sock = IO::Socket::INET->new(Proto => 'udp') || exit 1;

my $serv_addr = pack_sockaddr_in(1881, inet_aton($ip));

$sock->send("request : show", 0, $serv_addr);

#$sock->sockopt(SO_RCVTIMEO, 1) || die "err: $!";
$sock->recv($buf, 512) || exit 1;

print $buf;

yjh777

$sock->sockopt(SO_RCVTIMEO, 1) || die "err: $!";
试试传递pack类型的参数，不要传递1这样的。
shaneqi 发表于 2010-03-25 15:28

哦，谢谢； 我试试。   在哪里能查到sockopt()方法参数类型的描述啊？

climby

貌似IO::Socket自己的timeout 有局限性，很多地方建议使用alarm 解决
参考：
http://viperii.blogspot.com/2008/11/perl-sockettimeout.html

yjh777

$sock->sockopt(SO_RCVTIMEO, 1) || die "err: $!";
试试传递pack类型的参数，不要传递1这样的。
shaneqi 发表于 2010-03-25 15:28

确实是这样的，参数类型完全跟C接口相同； 非常感谢！

改成下面这样就好了：
$sock->sockopt(SO_RCVTIMEO, pack("I2", 1, 0)) || die "err: $!";

shaneqi

回复 6# yjh777


    好像也是听同事说过，没有太多实践，呵呵。没准这样写移植性也不会太好。

shaneqi

回复 8# yjh777


    congrats：）