Perl UDP服务器：如何获取客户端套接字？

Question

使用TCP服务器很容易获得客户端套接字：

$new_sock = $sock->accept();

但是对于UDP服务器，似乎无法检索客户端套接字，因此以后可以参考。

Client_A->UDPServer (store client socket)
Client_B->UDPServer
Client_B<-UDPServer
Clinet_A<-UDPServer (retrieve client socket)

Answer 1

1）保存每个从其接收数据报的客户端：

push @client, $sock->peername;

2）有时向他们发送答案-全部一次：

for my $client( @client) {
    #send SOCKET,MSG,FLAGS,**TO**
    send($sock, "Hey\n", 0, $client);
    #                       ^^^^^^^ 4.Parameter: TO
}