Perl中的套接字编程

Question

我是Socket Programming的新手.这是我想要做的:

我想通过UDP连接将数据包传输到网络中的另一台服务器.

这是我在Perl中编写的简短代码片段:

# create udp socket
$sock = IO::Socket::INET->new(
  Proto       => "udp",
  PeerPort    => '5001',
  PeerAddr    => defined $ip ? $ip : '10.42.43.2'
) or die "Socket could not be created: $!\n";

我想在主机(10.42.43.2)无法访问时处理异常.有什么想法可以做到吗？

非常感谢

Answer 1

UDP是一种不可靠的协议,这意味着它无法找出交付是否成功的方法.

一种选择是切换到像TCP这样的可靠协议.

另一种是自己处理送货通知.让主机在收到您的数据包后发送回复.如果在X秒内未收到回复,则表示发生错误.