perl - 当数据长度未知时，从 Perl 中的套接字接收数据的最佳方法是什么？

Question

现在，我在循环中一次读取一个字符，直到到达 \0 字符。有一个更好的方法吗？

Answer 1

将行结尾设置为 \x{00} (\0)，确保对其进行本地化，并将 getline 放在句柄上，如下所示:

{
    local $/ = "\x{00}";
    while (my $line = $sock->getline) {
       print "$line\n"; # do whatever with your data here
   }
}