如何处理Perl TCP套接字中的消息碎片

How to deal with message fragmentation in Perl TCP socket?

本文关键字：套接字 消息 碎片 TCP Perl 何处理 处理      更新时间：2023-10-16

我有一个Perl客户端和c++服务器之间的套接字通信。

Perl代码:

  if (!socket(SERVER, AF_INET, SOCK_STREAM, getprotobyname('tcp'))) {
    die "Can't allocate socketn";
  } elsif (!connect(SERVER,sockaddr_in($PORT, $tcp_addr))) {
    die "Can't connect to server at $tcp_addr port $PORT...n";
  }
  SERVER -> autoflush(1);
  print SERVER "$line";

如果$line太长，它将被分割，并且在c++服务器端，我必须多次调用recv(甚至不知道实际预期的长度!)。

最好的处理方法是什么?

我想到了一些方法:

    也许有一些Perl模块处理它?
  1. 也许我可以关闭分片，但这不会导致更多的传输失败吗?
  2. 我可以在发送的消息中添加消息长度，然后调用recv，直到我收到整个消息，但这不是很难看吗?
  3. 还有吗?

最好的解决方案是什么?

将消息长度以4字节的头添加到消息中。这并不难看，但就像"专业人士"那样做。TCP/IP是一个面向流的协议。你很幸运能在一次回传中收到你的信息。可以获得任意数量的字节，只有半个消息，一个半消息等，因为tcp/ip正在传输连续的字节流，而在该级别没有任何数据包的概念。

这样做的好处是，您可以在用户空间中缓冲消息，并且可以在该缓冲区中读取尽可能多的字节，并且从该缓冲区中处理多个消息，而不是重复调用recv()

最好的解决方案是一直调用'recv'，直到获得完整的消息。如果需要确定何时拥有完整的消息，可以在消息前加上其长度，或者在消息后加上终止符。我不知道你为什么认为这很丑。

相关文章：