raku - 找出异步套接字绑定(bind)的端口？

Question

从 Perl 6 的 6.d 版本开始，您可以使用端口 0要求解释器找到一个端口来为你绑定(bind):

my $socket = IO::Socket::Async.listen($SOCKET_ADDR, 0);

但是，$socket 是 Supply 没有关于它正在使用的低级套接字的信息。查找绑定(bind)到哪个端口的方法是什么？

Answer 1

当你tap $socket你得到的变量(当前未记录)IO::Socket::Async::ListenSocket目的。这有几个方法socket-port和 socket-host是Promises然后当他们解决时具有正确的值。

我们可能可以整理文档以表明这一点。

例子 :

my $s = IO::Socket::Async.listen("127.0.0.1",0);
my $t = $s.tap;
my $p = await $t.socket-port;
$p.say;