无法在Perl中设置TCP_NODELAY - 关于权限的错误 - 为什么？ （但我可以在python和ruby中设置）

Question

我正在尝试在套接字中设置TCP_NODELAY。这是Perl中的一个例子。

use Socket qw(TCP_NODELAY);
use IO::Socket::INET;

my $socket = IO::Socket::INET->new('localhost:8087');

die "Error ($!), can't connect to $host:$port"
  unless defined $socket;

$socket->sockopt(TCP_NODELAY, 1) 
  or die "Cannot set tcp nodelay $! ($^E)";

这是结果（使用我的代码和其他示例，以及有关我的环境的一些详细信息）：

$ perl z.pl
Cannot set tcp nodelay Permission denied (Permission denied) at z.pl line 9.

$ ruby z.rb
#<Socket::Option: INET TCP NODELAY 1>

$ python z.py
1

$ ruby -v
ruby 1.9.3p194 (2012-04-20 revision 35410) [x86_64-linux]

$ perl -v
This is perl 5, version 12, subversion 2 (v5.12.2) built for x86_64-linux

$ python --version
Python 2.7.5+

$ uname -a
Linux tpecze-desktop 3.11.0-12-generic #19-Ubuntu SMP Wed Oct 9 16:20:46 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux

我真的不知道为什么我不能设置这个标志。有人有点想法吗？应该是我环境中的一些细节？我尝试使用Perl 5.18.1获得相同的结果:(

python示例

import socket

s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.connect(("localhost",8087))
s.setsockopt(socket.IPPROTO_TCP, socket.TCP_NODELAY, 1)
print s.getsockopt(socket.IPPROTO_TCP, socket.TCP_NODELAY)

ruby​​示例

require 'socket'

s = TCPSocket.new('localhost', 8087)
s.setsockopt(Socket::IPPROTO_TCP, Socket::TCP_NODELAY, 1)
puts s.getsockopt(Socket::IPPROTO_TCP, Socket::TCP_NODELAY).inspect

Answer 1

我的错，我应该用

$socket->setsockopt(IPPROTO_TCP, TCP_NODELAY, 1) 

不是sockopt