无法使用IO :: Socket创建套接字

Question

当我运行以下代码时,执行只是挂在那里,根本没有响应.你们中的任何人都可以告诉我示例代码有什么问题吗？

use strict;
use warnings;
use IO::Select;
use IO::Socket;

my $s = new IO::Socket (
                          LocalPort => 8889,
                          Proto  => 'tcp',
                          Listen => 16,
                          Reuse  => 1
                      );

die "could not create socket $!\n" unless $s;

Answer 1

如果为IO :: Socket构造函数提供参数,则它需要一个Domain参数.检查出完整的源代码在这里,具体的配置子程序此方法从构造方法中调用,如果你提供的参数.

sub new {
  ...
  return scalar(%arg) ? $sock->configure(\%arg)
        : $sock;
}

sub configure {
  my($sock,$arg) = @_;
  my $domain = delete $arg->{Domain};

  croak 'IO::Socket: Cannot configure a generic socket' unless defined $domain;
  ....
}

也许你在考虑IO :: Socket :: INET？