Perl getsockopt 函数

• 

  描述

  getsockopt 此函数获取选项OPTNAME在套接字实现级别LEVEL上在SOCKET上设置的套接字选项。下表提供了一些OPTNAME在套接字级别的示例值-

  
  OPTNAME  结果
  SO_DEBUG  获取调试信息的记录状态
  SO_REUSEADDR  获取本地地址重用状态
  SO_KEEPALIVE  获取保持连接活动状态
  SO_DONTROUTE  获取传出邮件的路由旁路状态
  SO_LINGER    如果存在数据，则获取关闭时的持续状态
  SO_BROADCAST  获取传输广播消息的许可状态
  SO_OOBINLINE  获取带内带外数据的状态
  SO_SNDBUF    获取输出的缓冲区大小
  SO_RCVBUF    获取输入的缓冲区大小
  SO_TYPE    获取插座的类型
  SO_ERROR  获取并清除套接字上的错误
  TCP_NODELAY      禁用Nagle缓冲算法。
  

  打包字符串中的确切内容取决于LEVEL和OPTNAME，有关详细信息，请查阅系统文档。
• 

  句法

  以下是此函数的简单语法-

  
  getsockopt SOCKET, LEVEL, OPTNAME
  

• 

  返回值

  该函数在错误时返回undef，否则返回标量上下文中的选项值。
• 

  示例

  以下是显示其基本用法的示例代码，它将检查Nagle的算法是否在套接字上打开。但是，在此示例中，您将必须打开一个套接字以提供存储的ID-

   
  use Socket qw(:all);
  
  defined(my $tcp = getprotobyname("tcp"))
     or die "Could not determine the protocol number for tcp";
  # my $tcp = IPPROTO_TCP; # Alternative
  
  my $packed = getsockopt($socket, $tcp, TCP_NODELAY)
     or die "Could not query TCP_NODELAY socket option: $!";
  my $nodelay = unpack("I", $packed);
  
  print "Nagle's algorithm is turned ", $nodelay ? "off\n" : "on\n";