2

使用 Socket 我可以使用：

socket(my $socket, AF_UNIX, SOCK_STREAM, 0)
    or die "socket: $!";
my $sock_addr = sockaddr_un(chr(0).'/abstract/socket');
connect($socket, $sock_addr)  or die "connect: $!";

一切都好。我连接并可以发送/接收；

使用 AnyEvent::Socket:

tcp_connect "unix/",chr(0).'/abstract/socket' , sub {
    my ($fh) = @_
        or die "unable to connect: $!";
    ...
}

并得到错误：unable to connect: No such device or address at file.pl line X.

如何在 Anyevent::Socket 中使用抽象 UNIX 套接字？

4

1 回答 1

1

嗨，我对此进行了一些研究，简短的回答是 AnyEvent::Socket 不支持抽象套接字。

更长的答案是它确实应该，而且据我所知，它的一个小疏忽阻止了它的工作。

子resolve_sockaddr是罪魁祸首，我的版本中的第 718 行：

   if ($node eq "unix/") {
      return $cb->() if $family || $service !~ /^\//; # no can do

      return $cb->([AF_UNIX, defined $type ? $type : SOCK_STREAM, 0, Socket::pack_sockaddr_un $service]);
   }

行中读取的部分$service !~ /^\//; # no can do是阻止它工作的原因。

就我而言，我只是注释掉了那行，它起作用了，但实际上应该修改正则表达式以允许\0在前面表示抽象套接字路径。

你有几个选择：

  • 修改库的本地副本
  • 将更改向上游推送给 Marc Lehmann，并希望他接受补丁
  • 猴子补丁功能
  • 实现您自己的支持抽象域套接字的模块

祝你好运。

于 2015-04-29T13:37:11.450 回答